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2.5.1 用 PSAVE 指令 将 计算 机 中 的 程序 转录 在 磁带 上 
2.5.2 用 DSAYVE 指令 录 在 数据 DSAVE 
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2.5.4 用 DLOAD 指令 回 输 数 据 

2.5.5 关于 DLOAD 指令 的 再 说 明 

2.5:6 关于 在 磁带 上 录 存 和 回答 程序 的 一 些 附 言 
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第 一 个 COMX 一 35 BASIC 程序 
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显示 和 编辑 程序 

编写 一 个 能 从 键盘 接受 数据 的 程序 ( 使 用 INPUT 语句 ) 
代数 表达 式 和 BASIC 表达 式 

让 COMX 一 35 做 判断 

形成 摘 程 序 设 计 的 好 习惯 

简单 的 程序 设计 练习 及 答案 

进行 循环 ( 使 用 FORVNEXT 循环 语句 ) 
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一 一 GOSUB 和 RETURN 

进一步 编辑 的 方法 
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3.12.1 内 部 "图 示 字 符 " 一 一 使 用 函数 CHR $ 
3.12.2 用 户 自 定 的 字符 一 一 使 用 指令 SHAPE 
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前 言 


我 们 自豪 而 满怀 信心 地 向 大 家 推荐 本 厂 生产 的 COMX 一 35 和 数学 微 
型 电子 计算 机 。 


COMX -- 35 数学 微型 电子 计算 机 用 途 广 泛 ， 适 合 于 学 校 数 学 ， 工 
商业， 财会 及 家 务 等 使 用 。 它 媲美 一 位 博学 多 才 的 老师 ， 可 应 付 各 种 学 
术 程 度 的 需要 。 


COMX -- 35 数学 微型 电子 计算 机 加 上 内 附 扩展 设备 ， 是 一 邵 价 值 
相宜 的 多 用 涂 电 脑 ， 尤 其 适合 于 国内 中 学 微型 电子 计算 机 数学 使 用 。 它 
经 过 精心 设计 ， 故 使 用 极其 方便 。 


COMX -- 35 数学 微型 电子 计算 机 使 用 BASIC 话 言 ， 有 35K 字 节 
的 随机 存 取 记忆 系统 (RAM ) ( 其 中 32K 字 节 可 供用 户 使 用 ) 及 16K 字 
节 的 只 读 记 忆 系 统 (ROM )。 配 上 本 厂 生 产 的 显示 器 和 储存 器 ， 成 为 一 
个 完美 的 系统 。 它 还 可 以 加 上 其 他 设备 如 只 读 记 忆 ， 声 得 模 拟 器 ， 打 印 
机 或 记忆 系统 等 以 扩展 其 效能 。 


为 了 帮助 用 户 得 心 应 手 地 使 用 COMX 一 35 数学 微型 电子 计算 机 ， 
我 们 特 编 印 本 使 用 手册 ， 它 可 以 : 


1. 使 您 不 必 读 完整 本 手册 就 能 破 COMX 一 35 的 和 神奇 性 能 所 吸引 ， 
通过 逐步 解释 ， 使 您 学 会 动手 试验 ; 


2. 说 明 计算 机 的 一 些 基本 概念 ， 帮 详尽 地 为 您 介绍 COMX 一 35 
BASIC 话 言 ; 


3. 提供 许多 程序 设计 的 例子 ， 进 一 步 说 明 程 序 设计 的 方法 。 


本 手册 第 一 和 章 逐 步 介 绍 如何 起 动 计 算 机 ， 如 何 与 显示 器 ， 储 存 器 ， 
打印 机 等 连接 。 


第 二 草 介绍 COMX 一 35 的 基本 指 分， 并 引导 您 学 会 使 用 计算 机 进 
行 算术 运算 ， 作 彩色 图 形 ， 产 生得 响 效 果 和 做 电子 游戏 。 


第 三 重 将 指导 您 作 简 单 的 程序 设计 ， 包 括 要 计算 机 作 刊 断 和 重复 执 
行 一 段 程序 ， 划 选择 一 些 问题 作为 程序 设计 的 练习 ， 同 时 绘 出 答案 ， 在 
您 开始 学 习 程 序 设 计时 ， 指 导 您 养 成 进行 程序 设计 的 形 好 习惯 。 


第 四 ， 五 ， 六 草 详细 讲 明 算 法 ， 与 程序 的 使 用 ,介绍 COMX 一 35 
的 语言 ( BASIC )， 作 图 和 和 昔 响 效果 等 等 ， 帮 助 您 掌握 计算 机 的 基本 概 
念 和 进行 BASIC 程 序 设计 ， 帮 助 您 成 为 称职 的 程序 员 。 


有 了 COMX 一 35 数学 微型 电子 计算 机 再 加 上 本 使 用 手册 ， 将 使 您 
提高 智力 ， 增 进 逻 辑 思维 能 力 ， 激 发 您 的 想象 力 和 创造 力 ， 对 各 类 专业 
人 员 ， 学 生 都 有 极 大 神 丛 ， 尤 其 是 学 校 煞 育 中 必 不 可 少 的 打开 奇妙 计算 
王国 的 钥匙 。 


第 一 章 


对 “大 


第 一 和 章 开 机 


1'1 打开 COMX 一 35 包 半 

COMX 一 35 有 下 列 组 件 : 

(1) 附 加 键盘 和 操作 棒 的 COMX 一 35 主 机 。 

(2) 一 台 西 德 乐 满 第 显示 器 。 

(3) 一 台 COMX C 一 35 卡 式 录 划 机 。 

(4JCOMX 一 35P 打印 机 。 

(5) 一 根 电 源 软 线 ， 一 端 是 插头 ， 另 一 端 是 交 直 流 的 换 流 器 。 换 流 器 
用 于 插 进 交流 电源 插座 。 请 注 间 检 查 交 流 电源 的 电压 是 否 与 计算 机 要 求 
的 电压 相 匹 配 。 

(6) 一 根 显 象 电缆 ， 一 端 是 插头 ， 另 一 端 有 一 个 联接 器 ， 用 于 插 进 电 
视 机 的 天 线 输入 插口 。 

(7) 一 对 电缆 ( 每 端 有 二 个 插头 ) 用 于 连接 COMX 一 35 和 录 划 机。 

(8) 一 本 使 用 手册 。 

请 注 砷 : COMX -- 35 计算 机 必须 在 比较 凉爽 和 王 燥 的 环境 中 保存 
和 操作 。 如 果 COMX 一 35 准备 长 期 摘 填 不 用 ， 请 用 一 塑料 袋 装 好 ， 里 
面 放 一 小 袋 硅胶 。 


1'2 接 上 显示 器 卡 式 录 亚 机 


显示 器 是 作为 显示 设备 使 用 ， 输 入 计算 机 的 信息 ( 按 下 键盘 上 的 键 
) 在 显示 屏 上 用 一 种 颜色 显示 ， 从 计算 机 输出 的 信息 ( 例如 计算 的 结果 
` 图 表 等 ) 在 屏 上 用 另 一 种 颜色 显示 ， 卡 式 录 得 机 是 用 来 储存 程序 和 数 
据 的 。 关 闭 计算 机 时 ， 和 暂时 存在 计算 机 存储 器 中 的 程序 或 数据 就 将 消失 
' 因此 如 果 希 肇 保存 这 些 程序 或 数据 ， 就 应 将 其 录 进 磁带 。 


要 将 显示 器 与 计算 机 连接 ， 可 将 显 象 电缆 末端 的 插头 插 进 COMX- 
35 背 面 标 有 TV PAL (或 TV NTSC ) 的 插口 ， 并 将 联接 器 末端 插 进 
显示 器 的 天 线 输入 衔 \COMX -35 内 邵 有 频率 调制 器 ， 故 不 必 加 入 
一 个 调制 器 ) 


显示 器 天 线 或 开关 盒 
( PALVNTSC ) 
到 话 简 或 输入 录 香 


显 像 电缆 


要 连接 录 划 机 ， 可 使 用 所 附 的 一 对 电缆 ， 其 中 一 根 两 头 是 红色 插头 
， 另 一 根 是 黑色 插头 。 将 一 个 红色 插头 插 进 录 昔 机 中 标 有 下 AR 或 
EARPHONE 或 MON 或 MONITOR 的 播 孔 ， 另 一 个 红色 插头 则 插 进 
COMX -- 35 背面 标 有 CASSETTE IN 或 EAR 的 插 孔 ， 再 将 一 个 黑色 
插头 插 进 录 香 机 中 标 有 MIC 或 MICROPHONE 的 插 孔 ; 另 一 个 黑色 插 
头 则 播 进 COMX 一 35 标 有 CASSETTE OUT 或 MIC 的 插 孔 。 最 后 将 
录 昔 机 接 上 电源 就 可 以 使 用 了 。 


1.3 接 上 电源 


使 用 圆 形 同 轴 天 线 电缆 的 安置 法 使 用 局 形 双 股 天 线 电缆 的 安 芽 法 
从 电视 天 线 引 来 
到 COMX 一 35 
计算 机 的 电费 


CAZ 


电视 机 上 的 
VHFVUHF 天 线 终端 
从 电视 天 线 引 来 
的 局 形 双 股 电 缆 


NN 
到 COMX 一 35 计 算 机 


首先 ， 必 须 检查 下 列 二 件 事 : 


(a) COMX 一 35 背 面 的 电源 开关 是 否 确实 处 于 OFF( 关 ) 的 位 置 
(b) 检查 电源 换 流 器 的 额定 电压 是 否 与 交流 电源 的 输出 电压 相 匹 配 。 


然后 ， 可 将 电源 软 线 一 端的 插头 插 进 COMX 一 35 背面 标 有 POW- 
ER 的 播 孔 ， 而 另 一端 ， 即 有 换 流 器 的 一 端 插 进 交 流 电 源 插 孔 ， 再 将 电 
源 开 关 拨 到 ON ( 开 ) 的 位 置 。 这 时 红色 的 POWER 指示 灯 应 发 亮 ， 同 时 
可 听 到 一 些 声 昔 ， 它 说 明 COMX 一 35 开始 工作 。 


对 PAL 系 统 的 电视 机 要 调 到 36 频 道 ( UHF ) ， 对 NTSC 系 统 的 电 
视 机 要 调 到 了 频道 (VHF ) ( 频道 可 能 随 不 同 的 地 方 频率 而 变 ) 然后 将 
调 到 依次 出 现 各 种 颜色 的 COMX -- 35 信息 。 至 于 调整 COMX 一 35 计 
算 机 的 问题 请 参考 附录 A'5 


图 1.3.1 COMX 一 35 起 动 信息 ( 随便 按 下 一 键 就 开始 计算 ) 


COMX 
COPYRIGHTED @ 1983 BY 


COMX 
WORLD OPERATIONS LTD. 


(a) (b) 


在 调谐 到 COMX -- 35 的 电视 输出 频率 时 应 该 是 缓慢 地 调 。 开 始 转 
动 电视 机 上 的 调谐 旋钮 时 ， 并 没有 出 现 电视 画面 ， 而 是 出 现 “ 雪 花 " 要 一 
直 调 至 出 现 图 1:3:1 的 信息 。 这 时 就 可 以 调整 电视 机 的 对 比 度 ， 亮 度 和 
色彩 控制 旋钮 ， 可 得 到 清晰 的 彩色 显示 ， 由 于 昔 响 效果 是 来 自 COMX-- 
35 的 内 附 扬声器 而 不 是 电视 机 的 扬声器 ， 故 电视 机 的 昔 量 可 调 到 最 小 。 


起 动 信 息 (a) 和 (b ) 交 替 出 现 ， 其 中 信息 (a) 的 颜色 会 变化 , 可 以 将 它 
做 为 "测试 模式 "调整 到 最 满意 的 颜色 。 


每 台 COMX 一 35 都 已 经 调整 到 有 最 好 的 颜色 ， 如 果 没 有 扰乱 ， 一 
般 只 须 对 COMX 一 35 底 边 上 的 一 个 MIX 小 孔 作 微小 旋转 就 可 调整 好 
”测试 模式 ”就 是 给 做 这 种 调整 用 的 。 


按 下 空 棒 外 的 任何 键 ， 计 算 机 就 开始 进入 计算 状态 ， 这 时 起 动 信息 
就 为 信息 “READY" 所 代替 。 


图 1.3.2 COMX 一 35“READY"” 信 息 


注意 : 显示 屏 的 背景 是 黑色 ， 计 算 机 在 屏 上 的 输出 是 青色 ( 浅 蓝 色 ) ， 
而 姜 形 “光标 ”是 粉红 色 。 


光标 指示 下 一 个 要 显示 的 字符 的 位 置 。 


冒号 : 是 作为 COMX 35 BASIC 的 “提示 ”符号 ( 或 简称 为 提示 符 
) ， 它 提醒 用 户 计 算 机 在 等 待 你 输入 信息 。 


1 4 COMX 一 35 的 键盘 


在 COMX -35 的 键盘 上 共有 包括 空 棒 在 内 的 55 个 键 ， 其 排列 方式 
类 似 打 字 机 的 键盘 。 


SHIFT 键 是 考虑 到 很 多 键 上 面 有 两 个 字符 而 设 的 ， 如 果 单 按 某 一 
个 键 ， 则 显示 屏 上 显示 的 是 该 键 下 面 的 符号 。 如 果 先 按 住 SHIFT 键 再 
按 此 键 则 显示 的 是 该 键 上 面 的 符号 。 


与 打字 机 键盘 不 同 的 是 ，COMX -- 35 的 键盘 没有 小 写字 母 ， 另 外 
:字母 ”0 “和 数码 雳 ”由 "的 区 别 就 看 此 字母 中 间 有 无 一 和 斜 线 ， 要 十 分 注 
意 区 别 ”“0 “与 "由 "和 ”" 工 "与 "1”。 


要 特别 注意 那些 一 般 打 字 机 键盘 上 所 无 的 键 的 功能 ， 开 始 时 可 能 不 
完全 了 解 ， 但 这 些 键 是 十 分 重要 。 


CR 键 ( 回 车 键 ) 是 使 光标 回 到 显示 屏 下 一 行 最 左边 的 位 置 ( 它 同 
时 途 一 个 信息 给 计算 机 告诉 它 一 条 命令 或 指 今 已 完 。 可 参政 2.1 节 )CR 
键 也 可 简单 地 当 作 返回 键 。 


RT( 复 原 ) 键 是 使 计算 机 恢复 到 初始 状态 ， 复 原 就 是 清除 屏 上 的 
显示 ， 并 使 计算 机 输出 图 1.3.1 所 示 的 信息 ， 应 注 则 ， 一 旦 同时 按 下 复 
原 键 和 空 棒 ， 记 忆 的 内 容 就 全 邵 彼 清除， 这 县 味 着 早先 存放 在 存储 器 中 
的 程序 和 数据 全 消失 。 


ESC ( 转 义 ) 键 能 中 止 程序 的 执行 ( 从 程序 中 "“ 解 胸 ? 出 来 ) ， 当 按 
下 ESC 键 时 ,就 显示 信息 “READY"” 说 明 计算 机 已 准备 接受 新 的 BA- 
SIC 指 今 。 


单独 按 下 CNTEL ( 控制 ) 键 时 ， 计 算 机 什么 事 也 不 做 ， 显 示 屏 上 也 
没有 任何 字符 ， 如 果 在 按 住 CNTL 键 的 同时 按 下 另 一 个 适当 的 键 ， 计 算 
机 就 相应 地 执行 某 些 动作 或 打印 出 某 些 字符 ， 例 如 当 按 人 CNTL 时 按 
下 C 键 ， 计 算 机 就 不 理 正在 打印 的 那 一 行 ， 光 标 将 移动 到 下 一 行 最 左边 
的 位 置 。 如 果 用 户 在 某 一 行 出 错 而 希 肇 从 下 一 行 重 新 开始 时 ， 这 个 功能 
就 很 有 有 用 ，CNTL 键 的 功能 将 在 2:1 节 和 3 :15 节 中 进一步 讨论 。 


1.5 COMX 一 35 的 显示 屏 


当 电源 初次 接 通 时 ， 计 算 机 将 用 青色 ( 浅 蓝 色 ) 输出 计算 机 产生 的 
信息 或 计算 结果 的 字符 ， 而 由 键盘 输入 的 字符 则 用 和 白色 在 黑色 显示 屏 〈 
背景 黑色 ) 上 显示 ， 当 然 这 是 假定 你 使 用 的 彩色 电视 机 艾 且 色彩 、 亮 度 
和 对 上 比 度 都 调整 好 ， 整 个 显示 屏 可 显示 24 行 ， 每 行 40 个 字符 。 


正如 2.3 节 所 要 说 明 的 ， 显 示 屏 的 颜色 和 字符 可 以 用 COMX 一 35 
BASIC 指 今 加 以 改变 。 


COMX BASIC V1.00 
有 READY 


: PR“I LOVE COMX” 镍 


章 趾 


ASVALN 


交 二 


一 些 日 


草 
ASIC 指 兮 


第 二 和 章 ”熟悉 一 些 BASIC 指 今 
学 完 这 一 草 ， 你 就 能 兜 ; 


(a) 将 COMX 一 35 当 作 一 台 高 级 计算 器 使 用 
(b) 使 用 一 些 通用 "BASIC” 指 今 
(c) 知道 如 果 出 错误 ， 如 何 处 理 
(d) 用 "BASIC" 指 今 绘 彩色 图 表 和 谱 曲 

将 COMX -35 当 作 计算 器 使 用 当然 是 没有 充分 发 挥 COMX 一 35 
的 无 限 力 ， 但 是 ， 这 是 一 种 学 习 BASIC 话 言 的 好 方法 ， 你 可 以 使 用 
这 种 操作 方法 做 很 复杂 的 计算 ， 或 帮助 你 的 弟妹 检查 家 庭 算术 作业 ， 当 
熟悉 了 BASIC 指令 之 后 ， 就 可 以 使 用 一 系列 指 今 ( 即 一 个 程序 ) 去 解 


决 需要 许多 步 才能 解决 的 复杂 问题 ， 因 此 ， 这 一 章 是 为 后 面 几 重 进行 程 
序 设计 打 好 基础 。 


2.1 用 COMX 一 35 输出 信息 
首先 启动 计算 机 ， 得 到 READY 信息 。 
然后 在 键盘 上 打 PRINT "HI COMX 一 35” 
接着 再 按 C R 键 ， 在 打 引 号 ( ”) 时 不 要 忘记 按 下 SHIFT 键 ， 按 CR 键 是 


使 光标 移 到 显示 屏 的 左边 ， 同 时 也 告诉 计算 机 指 今 已 完 ， 这 时 屏 上 可 看 
到 | : 


你 打 的 PRINT”“HI COMX 一 35” 


COMX 一 35 的 应 答 HI COMX 一 35 


再 说 一 逼 ， 要 输出 信息 ， 可 使 用 指 人 PRINT。 后 面 接 写 由 一 对 引 人 
号 括 起 来 的 要 输出 的 信息 ， 再 按 CR 键 结束 新 指 今 。 


可 以 不 必 打 了 PRINT ， 仅 打 其 缩 略 形式 PR 也 一 样 。 


如 果 打 了 PR 之 后 就 按 CR 键 ， 光 标 将 移 至 下 一 行 ， 这 叫 * 换 行 ” 操 
作 。 


附注 : 如 修正 错误 〈 或 称 编辑 ) 


如 果 在 按 CR 之 前 发 现 打 错 ， 可 如 下 处 理 : 


(1) 按 DEL (删除 ) 键 。 将 光标 往 后 移 这 时 被 光标 复 盖 过 的 字符 将 被 
删 去 ， 要 改正 ， 就 用 DEL 键 先 删 去 错误 的 字符 ， 然 后 重 打 。 


(2 威 者 ， 按 下 CNTL 键 ( 控制 键 ) 再 按 C。 这 时 就 将 光标 移 至 下 一 
行 最 左边 位 置 ， 原 来 那 一 行 ( 包含 有 错误 ) COMX -- 35 认为 它 有 毛病 
,不 予 理 肯 。 


试 打 PRINT“TEST?” 


但 在 按 CR 之 前 ， 按 下 CNTL 再 按 C。 注 碍 ， 这 时 没有 输出 信息 。 因 为 
对 不 完整 的 语句 计算 机 根本 不 予 理 瞬 。 


如 果 在 按 CR 之 后 发 现 错误 : 
如 果 你 将 “PRINT" 措 错 会 得 到 下 面 的 错误 信息 : 


ERR CODE 30 
READY 
: 全 


代号 30 的 错误 信息 的 量 义 是 * 在 PRINT 语 句 中 最 后 一 个 字符 是 不 可 接 绥 
的 ， 冒 号 : 说 明 原 来 效 未 受 影 响 ， 你 可 以 重 打 指 今 。 比 如 你 打 PRNNT 
”HI ”其 中 有 一 个 "N "是 “I 之 误 ， 计 算 机 仍然 认 出 头 两 字母 "PR " 它 与 
“PRINT 有 同样 昌 义 、 然 后 计算 机 将 NNT ”理解 为 一 个 变量 ， 而 将 “HI 
作为 文字 。 但 在 它们 之 间 没 有 逗号 或 分 号 之 类 的 分 隔 符 ， 由 于 缺少 分 隔 
符 故 造成 错误 。 


如 果 没 有 前 面 或 后 面 的 35| 号 ， 计 算 机 就 输出 信息 如 下 : 
ERR CODE 22 
READY 


: @@ 


代号 22 的 错误 信息 的 量 义 是 "缺少 引 | 号” 


其 他 错误 信息 及 其 昌 义 可 见 附 录 。 


如 果 你 打 了 指 今 之 后 没有 得 到 任何 应 答 ， 那 也 许 是 忘记 在 指 今 的 结 
尾 按 CR 键 。 


例 : 


试 试 下 列 指 今 看 是 否 得 到 相应 的 输出 。 


PRINT"” MONEY CAN'T BUY ME LOVE 一 BEATLES” 
MONEY CAN'T BUY ME LOVE 一 BEATLES 


PRINT" TO ERR IS HUMAN,，TO REALLY MESS THINGS 
UP YOU NEED A COMPUTER” 
TO ERR IS HUMAN, TO REALLY MESS 


THINGS UP YOU NEED A COMPUTER 


PRINT"A CHILD MISEDUCATED IS A CHILD 
LOST-JOHN FF. KENNEDY” 

A CHILD MISEDUCATED IS A CHILD LOST- 
JOHN 上 . KENNEDY. 


用 PR 代替 PRINT， 再 重复 上 例 ， 逆 注意 计算 的 应 答 是 否 一 致 。 


2.2 将 COMX 一 35 作为 计算 器 使 用 
COMX 一 35 可 作为 高 级 计算 器 使 用 
在 COMX 一 35 上 试 打 


PRINT 5 十 6 


区 按 CR 键 ，COMX 一 35 将 应 答 明 : 


11 
COMX 一 35 能 进行 5 种 算术 运算 : 


(a) 加 法 ， 记 为 十 。 
(b) 减法 ， 记 为 一 。 试 : 


PRINT 34 一 16 


得 到 18， 在 指 今 的 末尾 不 要 忘记 按 CR 键 。 


(c) 乘法 ， 记 为 水 。 
试 PRINT 7 8 
得 到 一 一 56 


(d) 除法 ， 记 为 了 。 
试 


PRINT 567 
得 到 一 | 8 


(e) 逢 。 有 时 需要 将 一 个 数 自 乘 给 定 的 次 数 。 


试 一 -| PPINT 2 水 2 沙 2 洲 2 水 2 
得 一 | 32 


不 过 ， 上 述 的 写法 可 换 成 下 面 的 写法 : 


试 PRINT 2 人 5 
得 一 一 | 32 


要 打出 向 上 的 季 号 人 须 在 按 下 SHIFT 键 时 按 全 键 。 在 设计 ”BAS - 
IC ”一 类 计算 机 语言 时 ， 对 某 些 画 数 都 规定 特定 的 符号 ， 故 使 用 时 不 能 
用 错 键 。 这 些 特定 符号 都 可 在 计算 机 键盘 上 找到 ， 例 如 ( 3 X 5 ) 中 的 
义 变 成 。 因 此 做 乘法 就 不 能 用 "X”。 除 法 的 “二 " 变 成 “~”，, 在 普通 键 
盘 上 没有 "二 ”“ 十 "号 和 "一 "号 保留 不 变 。 由 于 取 需 运算 要 在 字符 的 右 
上 角 放 一 表达 式 ， 如 “102z ”而 大 寻 分 计算 机 都 不 能 表示 这 种 ”上 标 ” 
字符 。 因 此 需要 有 一 个 符号 ， 结 果 选 择 ”f 人 ”， 在 它 后 面 的 字符 即 是 指 
数 (例如 10z 写 成 10 人 2 )。 


上 面 的 例子 都 包含 两 个 数 和 一 种 运算 。 
COMX 一 35 还 可 解答 更 复杂 的 问题 ， 其 中 含有 多 个 数 及 若干 种 不 同 运 


算 。 


PRINT(5 十 6) 沙 (9 一 7) 
22 


PRINTC 一 4) 来 (19 一 14)/ 
(8 一 3) 
3 


试 一 一 | PRINT(313 十 2 人 4)/(2 沙 5) 
得 一 一 | 4.3 


计算 机 进行 不 同 运 算 的 顺序 类 似 算 术 中 的 普通 法 则 。 即 先 做 半 和 二， 再 
做 十 和 一 。 在 5:3 节 就 给 出 完整 的 顺序 表 ， 这 里 使 用 括号 ”( ) “与 
通常 一 样 ， 是 告诉 计算 机 其 中 的 运算 应 该 先 做 。 


2.3 改变 浙 色 


COMX 一 35 屏幕 显示 是 多 颜色 的 。 用 户 的 键盘 输入 用 白色 显示 ， 
计算 机 输出 及 错误 信息 用 青色 ( 浅 蓝 色 ) 显示 。 凌 形 光 标 是 粉红 色 。 这 
样 做 的 目的 是 使 得 更 醒目 ， 便 于 用 户 与 计算 机 之 间 的 “对 答 ”， 提 高 用 
户 编程 序 的 速度 和 减少 错误 。 这 对 于 初次 使 用 者 显得 更 重要 。 上 述 的 颜 
色 组 合 可 说 是 "缺乏 "选择 的 ， 即 是 说 一 般 情 况 下 COMX -35 都 选用 这 
些 颜色 ， 除 非 有 特殊 指令 要 求 使 用 其 他 颜色 ， 通 过 使 用 下 面 要 说 明 的 
COLOR，SCREEN， 和 CTONE 等 指 今 就 可 以 选择 其 他 颜色 。 


2.3.1 试 输 COLOR 指 今 
COLOR 指 今 的 形式 是 ; 
COLOR(X) 


其 中 X 是 数 表 达 式 ， 由 它 规定 用 户 输 入 和 计算 机 输出 字符 所 要 使 用 的 颜 
色 组 合 。 表 2.3.:1 列 出 不 同 的 文 值 所 对 应 的 颜色 组 合 。 


现在 打 指 今 


COLOR(10) 


再 按 C R 键 ， 注 意 到 用 户 输入 的 字符 已 变 成 粉红 色 而 计算 机 输出 变 成 蓝 
色 。 再 试 试 其 他 一 些 颜色 指令， 将 "10 换 成 1 到 12 中 任 一 数 ， 观 察 其 颜 
色 的 变化 蔓 与 表 2.3.'1 做 比较 。 注 总 COLOR(12) 就 相应 于 原来 的 字符 
颜色 。 


表 2.3.1 对 应 COLOR(X) 的 颜色 选择 


计算 机 应 答 


忆 0 中 外 心 有 己 靖 


己 。 哺 
”加 


和 
[wu 


注 : 括号 中 的 数字 是 光亮 度 ( % ) 


2.3.2 试验 SCREEN 指 今 
SCREEN 指 今 的 形式 是 
SCREEN(X) 


其 中 X 是 数 表达 式 ( 可 取 1 到 8 中 任 一 数 ) ， 由 它 规定 显示 屏 的 背景 颜 
色 。 表 2.3.2 列 出 不 同 的 X 值 所 对 应 的 显示 屏 的 颜色 。 


现在 试 试 指 今 


SCREEN(2) 


再 按 C R 键 。 注 意 到 屏 上 颜色 由 黑 变 为 绿 ,用 1 到 8 中 任 一 数 代替 2 ， 
井 将 屏 的 颜色 与 表 2.3.'2 比较 。 注 则 ， SCREEN(1) 就 相应 于 原来 的 屏 
色 ， 还 要 注意 ， 如 果 输 入 字符 或 输出 字符 的 颜色 与 显示 屏 的 颜色 相同 ， 
则 字符 就 看 不 出 来 。 


在 表 2.3.'1 中 还 给 出 COMX 一 35 不 同 颜色 的 光亮 度 ， 一 般 说 来 ， 
用 明亮 的 字符 对 灰 蜡 的 背景 就 能 得 到 满 显 的 显示 ( 例 COLOR (12) 和 
SCREEN( 1 ) ， 或 COLOR(12) 和 SCREEN( 3 ) ) ; 也 可 以 使 用 灰 肠 
的 字符 对 比 明 亮 的 背景 "( 例如 COLOR (5 ) 和 SCREEN(2)) ; 
COLOR(12) 和 SCREEN( 7 ) 也 邻 人 感到 比较 舒服 。 


表 2.3.2 对 应 SCREEN (XI) 的 屏 色 


上 


1 
2 
3 
4 
5 
6 
7 
8 


注 ; 括号 中 的 数字 是 光亮 度 ( % ) 
2.3.3 CTONE 指 今 
其 形式 是 
CTONE(X) 
其 中 的 数 表 达 式 X 只 取 需 与 非 雳 ， 如 果 X 非 雳 ， 其 色调 就 变 成 这 样 : 屏 


色 不 变 ， 而 显示 出 来 的 字符 的 颜色 类 似 于 屏 色 ， 但 亮度 不 同 ， 如 果 X 是 
雳 ， 则 没有 上 述 的 色调 效应 。 


2.4 产生 得 的 效果 


在 COMX 一 35 中 ， 可 通过 内 邵 扬 声 器 产生 高 质量 的 昔 响 效果 。” 
吾 乐 指 今 ” 可 产生 8 个 昔 阶 频率 范围 和 16 个 响 度 级 的 七 个 理 符 。” 声 昔 
指令 ”可 产生 8 个 吾 阶 频率 范围 和 16 个 响 度 级 的 高 斯 白 噪 声 。 另 外 ， 有 
“ 萌 调 指令 。 它 类 似 于 香 乐 指令 ( 即 有 8 个 亚 阶 和 16 个 响 度 级 ) ， 只 是 
它 对 每 个 理 阶 ， 而 不 是 七 个 得 符 ， 其 频率 可 有 128 个 亚 级 的 变化 。 适 当 
地 配合 使 用 这 三 个 指令 就 可 以 谱 成 一 首 乐曲 ， 同 时 使 逼 提 的 昔 响 效果 与 
图 样 和 颜色 的 变化 相隔 衬 。 


2.4.1 试验 MUSIC 指 兮 
MUSIC 指 今 的 形式 是 
MUSIC(X,Y,Z) 


其 中 X,Y 和 Z 是 数 表达 式 ，X 规 定理 符 ， 可 取 1, 2, … 到 7。 即 是 


1 一 DO 
2 王 RAY 
3 三 MI 
4 王 FA 
5 一 SO 
6 = 王 LA 
7 一 TI 


Y 决 定理 阶 ， 可 以 1, 2… 变 到 8 ，8 是 最 高 频率 的 昔 阶 。 


乙 决定 振幅 ， 可 从 0，1 变 到 15，15 是 最 响 。 


现在 试 : MUSIC(1, 1 II) 


再 按 C R 键 ， 可 得 最 低 昔 阶 的 微弱 的 DO” 
再 试 : MUSIC(1,1, 2) 


注意 到 理 量 提交 了 。 


注 症 到 昔 阶 变 高 了 。 


注意 已 变 成 "RAY” 


应 注意 一 发 生得 乐 指令 ， 该 得 符 就 一 直 持续 到 发 出 另 一 条 得 乐 指 今 


为 止 ， 要 取消 此 昔 符 ， 可 打 


当然 ， 在 一 条 指 今 的 末尾 总 是 不 要 庶 记 按 C R 键 
2.4:2 试验 NOISE 指 兮 
NOISE 指 今 的 形式 是 
NOISE(Y,Z) 
Y 规定 高 斯 白 噪 声 的 频率 范围 ， 可 从 1,2，…… 到 8 


乙 规定 振幅 ， 可 从 0, 1 ,2，…… 变 到 15。 
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再 按 C R 键 ， 蔓 注 总 声 理 效果 


再 试 : NOISE(1,2) 


注 总 其 理 量 〈 或 振幅 ) 提高 。 


再 试 : NOISE(2, 2) 


注 总 其 理 调 ( 或 频率 ) 提高 。 
要 停止 发 声 土 ， 可 打 
NOISE(0,0) 
注意 ' 在 每 一 指 今 的 末尾 总 是 要 记 住 按 C R 键 。 
2.4.3 试验 TONE 指 兮 
TONE 指 今 发 出 一 个 连续 香 调 ， 其 形式 是 
TONE(X,Y,Z) 
其 中 文 规定 频率 ， 可 从 1,2，…… 变 到 128 ， 
Y 规定 昔 阶 ， 可 从 1,2,，…… 变 到 8 
乙 规定 振幅 ， 可 从 0, 1，…… 变 到 15。 
表 2.4.3 列 出 实际 输出 频率 和 TON 正 指令 中 参数 X 之 间 的 关系 ， 该 


实际 是 对 第 4 理 阶 ( 即 Y = 4 ) 对 更 高 得 阶 其 频率 应 加 俩 ， 而 每 低 一 得 
阶 其 频率 减 半 。 
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2.4.4 VOLUME 指 今 
其 形式 是 “VOLUME(X ) 

其 中 整数 X 可 从 1 ( 最 小 声 ) 变 到 4 ( 最 大 声 ) 这 个 "总理 量 控制 ” 指 今 
对 其 后 面 所 有 发 出 的 MUSIC，NOISE 和 TONE 指 今 都 起 作用 ， 在 其 前 
面 的 所 有 得 响 指 今 就 不 受 其 影响 。 
2.5 用 录 香 机 录 存 程序 和 数据 

2.5.1 用 PSAVE 将 程序 从 计算 机 转录 入 录 得 机 

首先 ， 按 照 1.2 重 所 说 的 步骤 连接 好 录 香 机 。 

假定 在 计算 机 存 赃 器 中 有 一 个 希 刻 保存 起 来 供 今后 使 用 的 程序 ， 应 
先 打 LIST 仔 细 检 查 在 存 赃 器 里 的 程序 中 有 无 不 需要 的 程序 片段 、 再 调 
整 录 香 机 的 昔 量 控制 到 适当 位 置 ， 对 COMX 一 35 来 说 ， 通 常 冒 香 量 控 
制 于 中 间 位 置 ， 现 在 ， 依 次 如 下 操作 : 

(1) 往 录 得 机 装 上 空白 磁带 瘟 反 绕 此 带 ( 如 果 录 昔 机 上 有 磁带 位 置 


计数 器 ， 应 让 它 冒 雳 。 当 然 ， 如 果 使 用 已 用 过 的 磁带 进行 录 理 时 原来 已 
录 存 的 信息 会 被 抹 去 。 ) 
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(2) 同时 按 下 "PLAY” 和 ”RECORD ”开始 在 磁带 上 录 昔 。 
(3) 打 PSAVE ( 录 存 程序 ) 再 按 C R 键 ， 开 始 将 程序 录 进 磁带 。 


(4) 当 (3) 完 成 时 ， 就 重新 显示 信息 "READY”， 后 面 跟 ”: 会 "请 不 
忘记 记 下 被 录 程 序 终 了 时 的 磁带 位 置 ， 以 备 今后 查找 。 


进行 第 (3) 步 的 详细 过 程 是 这 样 的 当 打 了 PSAVE 基 接着 按 C R 键 
之 后 ， 光 标 就 消失 ， 同 时 可 听 到 标志 程序 开始 ( 称 为 程序 头 ) 的 一 阵 兴 
叫 声 。 


我 们 应 该 先 让 录 各 机 转动 以 保证 不 会 录 到 空白 的 带头 上 ， 一 般 磁带 
的 带头 是 不 能 录 下 任何 信号 的 ， 因 此 假如 从 带头 开始 录 的 话 就 可 能 会 未 
失 一 部 分 程序 或 数据 。 


然后 是 一 声 噪 得， 表示 在 传 迁 程 序 的 第 一 页 ( 256 位 组 ) 接着 是 一 
阵 短 促 的 失 叫 声 ， 这 是 页 头 ， 标 志 第 二 页 开始 ， 以 后 又 是 噪 昔 表明 在 传 
适 程序 的 第 二 页 。 往 后 ， 兴 叫 声 和 噪 理 交替 出 现 一 直到 整个 程序 传 返 完 
毕 ， 传 提 结 束 的 标志 是 失 叫 声 之 后 投 低 香 ， 熟 悉 上 述 各 种 声 昔 的 出 现 顺 
序 之 后 ， 用 户 就 随时 能 知道 已 传 迭 到 什么 地 方 。 


COMX 一 35 是 这 样 设计 的 ， 电 计算 机 发 出 声 昔 信号 经 由 联接 两 个 
MIC 插 孔 的 电缆 到 录 划 机、 信号 到 达 录 香 机 之 后 再 经 由 连接 两 个 下 AR 
插 孔 的 电缆 返回 计算 机 ， 如 果 有 错误 或 没有 连接 好 ， 或 在 录 理 机 未 运转 
' 都 导致 信号 过 道 不 通 ， 也 就 听 不 到 声 昔 ， 这 就 提醒 用 户 应 检查 连接 的 
情况 。 


*# 应 该 注 晶 ， 不 是 所 有 的 录 理 机 在 录 香 时 都 能 产生 上 述 的 声 昔 ， 如 
果 有 这 种 情况 也 不 必 担 心 ， 还 是 可 以 用 它 与 COMX 一 35 连接 使 用 ， 
是 不 能 听 到 声 昔 罢了 。 


妆 
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2.5.2 用 DSAVE 录 存 数据 

要 录 存 数据 ， 步 又 (1) 与 (2) 与 上 面 一 样 , 仅 是 将 (3) 中 的 PSAVE 改 为 
DSAVE (数据 录 存 ) 即 可 。 这 时 计算 机 中 用 于 存 数 数据 ( 数字 符 串 式 
数组 ) 的 那 一 邵 分 存储 器 的 内 容 就 被 存 到 磁带 中 。 

与 上 一 节 所 说 的 一 样 ， 也 会 发 出 一 系列 声 秋 表明 录 存 过 程 的 状态 。 


2.5.3 用 PLOAD 将 程序 从 录 亚 机 回转 给 计算 机 


为 了 将 录 存 在 磁带 上 的 计算 机 程序 回 输 式 装 入 计算 机 存储 器 ， 首 先 
应 将 录 香 机 如 1:2 节 所 说 的 联接 好 ， 然 后 按 以 下 步 又 操作 : 


(1)， 往 录 划 机 装 上 磁带 ， 站 找到 程序 开始 的 地 方 。 


(2) 弄 清 楚 存储 器 中 现存 的 程序 或 数据 是 否 已 不 再 需要 ， 或 者 已 经 
录 存 起 来 ， 因 为 进行 第 (3) 步 时 就 会 清除 存储 器 的 全 部 内 容 ， 原 来 存在 存 
储 器 中 的 程序 或 数据 会 全 被 洗 掉 。 


(3) 假定 计算 计 已 接 通 电源 ， 同 时 显示 出 ”READY "信息 和 ”: 合 ” 
。 现 在 打 PLOAD， 赣 按 下 PLAY 按钮 ( 在 录 昔 机 上 ) ， 当 听 到 一 阵 尖 
叫 声 时 ， 就 按 C R 键 开始 回转 程序 ， 这 时 光标 消失 ， 瘟 伯 有 2.5:1 即 所 
说 明 一 系列 声 理 。 


(4) 当 回 转 程序 完成 时 ， 信 息 "READY” 和 ”: 全 "重新 显现 。 

2.5.4 用 DLOAD 回转 数据 

DLOAD 指 仿 ，( 数据 装 入 ) 是 将 先前 ( 由 指令 DSAVE ) 存 入 磁 
带 上 的 数据 回转 给 计算 机 。 其 过 程 类 似 2.5.3 所 述 ， 只 是 将 PLOAD 改 


为 DLOAD。 这 时 自动 地 将 数据 放 在 现存 的 程序 存储 空间 的 末尾 瘟 冲 掉 
原 有 的 数据 。 
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2.5:5 关于 DLOAD 的 另外 几 个 要 点 

关于 DLOAD 指 今 的 用 法 ， 有 三 点 必须 考虑 的 : 

(1) 如果 用 户 的 存储 空间 同时 包含 有 程序 和 数据 ， 对 程序 的 任何 编 
辑 都 会 把 数据 抹 去 ， 因 此 在 做 编辑 之 前 ， 应 先 用 DSAVE 录 存 数据 ( 如 
果 和 希望 保 存 的 话 ) ， 然 后 才 对 程序 进行 编辑 ， 最 后 用 DLOAD 回 转 数 据 。 


(2) 注意 ,做 DLOAD 的 作用 是 自动 定义 一 节 大 小 不 超出 所 要 存 的 
数据 的 数组 。 


(3) 字符 串 都 存放 在 数组 空间 的 末尾 ， 如 果 在 字符 串 已 生成 还 要 再 
定义 数组 ， 则 由 于 数组 空间 所 加 会 将 这 些 字 符 串 抹 去 ， 因 此 在 字符 串 生 
成 之 前 应 将 所 有 数组 全 定义 好 。 

2 5.6 关于 在 磁带 上 录 存 和 回答 程 序 的 一 些 附 言 

为 了 防止 丧失 有 价值 的 程序 和 数据 ， 下 面 几 点 是 应 该 注意 的 : 


(1) 可 反复 使 用 PSAVE 和 DSAVE 来 录 存 多 项 资料 ， 对 于 需 进 
行 几 小 时 工作 的 程序 ， 可 同样 录 存 在 另 一 磁带 上 。 


(2) 留心 听 声 昔 序 列 ， 它 是 成 功 进行 传输 的 主要 标志 。 

(3) 第 (1) 步 之 后 ,将 已 录 存 的 程序 回 输 给 计算 机 并 LIST ( 列 程序 
清单 ) ， 如 果 回 输 不 能 顺利 完成 ， 原 来 程序 仍 可 能 完整 无 损 ， 故 还 可 以 
重新 想法 录 存 程序 。 


(4) 拿 磁 带 应 小 心 防止 抓 伤 ， 还 应 让 磁带 避 开 强 们 场 ， 保 存 磁带 应 
远离 电视 机 ， 其 他 注意 事项 可 见 附 录 A3。 
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第 三 一 


编写 测 单 程序 


第 三 章 ”编写 简单 程序 
3'1 第 一 个 COMX 一 35 BASIC 程序 
下 面 一 些 例子 来 介绍 程序 设计 ， 先 打 进 这 些 程序 例子 ， 然 后 观察 计 
算 机 的 应 答 ， 第 一 个 程序 是 用 来 告诉 你 一 个 程序 的 主要 结构 及 某 些 BA- 
SIC 指 今 的 用 法 ， 打 下 列 程序 : 


程序 3'1 


:NEW 
:10 PR “HI COMX 一 35” 
: 20 PR 2 十 3 程序 
:30 PR (5 二 6)#(9 一 7) 
END 


RUN 指 今 


计算 机 的 应 答 


属 上 的 显示 分 成 三 个 主要 邵 分 。 


(i) 程序 本 身 


(ii) RUN 指 今 告诉 计算 机 去 执行 程序 的 指 今 。 


(iii) 计 算 机 将 执行 程序 指 今 的 结果 输出 。 
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下 面 进一步 看 工程 本 身 。 


NEW 是 指 今 (或 语句 ) ， 它 告诉 计算 机 清除 以 前 输入 的 全 部 程序 或 
数据 。 


程序 中 每 一 行 指 今 以 一 个 行 号 开始 ， 如 10，20 等 等 ， 计 算 机 将 依 行 
号 的 顺序 ， 即 从 最 小 到 最 大 依次 执行 各 指令 


当 你 看 到 指 今 10、20 和 和 30 时， 就 会 注意 到 这 些 第 二 重 已 遇 到 过 ， 不 
过 在 这 里 ， 这 些 指 今 是 作为 一 群 来 执行 ( 在 打 RUN 之 后 ) ， 而 不 是 一 次 
执行 一 条 指 今 ， 这 是 将 COMX -- 35 作为 运行 程序 的 计算 机 和 将 COMX 
一 35 当 作 计 算 器 使 用 ， 这 两 者 之 间 的 主要 区 别 。 


指 邻 END 表示 程序 结束 ， 当 计算 机 看 到 END 时 ， 就 停止 程序 的 执 


RUN 是 指令 ， 它 告诉 计算 机 开始 执行 程序 ， 计 算 机 找 出 最 小 行 号 然 
后 傅 行 号 顺序 开始 逐 行 执行 下 去 。 


附注 : 关于 行 号 的 一 些 问题 


建议 你 用 行 号 10 来 开始 你 的 程序 ， 按 下 去 是 20、30、40、……… 等 等 
， 即 留 下 9 个 间隙 可 放 其 他 指令 ， 这 将 使 你 能 不 改变 原来 行 号 而 插入 额 
外 增加 的 行 ， 比 如 你 加 入 行 15， 这 条 指 今 将 在 行 20 之 前 执行 。 


当 你 用 行 号 来 开始 指 今 时 ， 实 际 上 正 是 告诉 计算 机 在 打 RUN 之 前 
不 要 执行 它 ， 那 是 在 编程 序 状态 下 使 用 计算 机 ， 如 果 不 使 用 任何 行 号 ， 
就 象 第 二 和 章 一 样 ， 则 只 要 一 按 C R 键 ， 马 上 就 开 如 执行 ， 因 此 ， 是 处 于 
作为 计算 器 的 状态 。 


行 号 也 可 看 作 是 指 今 的 名 字 ( 或 称 标 号 ) 。 在 GOTO 话 句 中 和 程序 
编辑 时 也 使 用 行 号 ， 见 3.2 节 和 3 .3 节 。 
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COMX 一 35 提 要 : 什么 趾 程 序 ? 


程序 是 一 组 ( 或 一 序列 ) 指 今 ， 其 中 每 一 条 指 今 都 由 一 个 行 号 开头 
,一般 情况 下 ， 计 算 机 将 按 行 号 从 小 到 大 的 顺序 执行 这 些 指 今 ， 程 序 开 
头 的 NEW 指令 是 用 来 清除 原先 的 程序 ， 而 指 今 END 是 今 计算 机 停止 
执行 ， 指 邻 RUN 告诉 计算 机 从 最 小 行 号 的 那 条 指令 开始 执行 ， 指 今 有 运 
常 也 称 为 语句 ， 因 此 我 们 也 说 话 句 END， 话 句 RUN 等 。 


3:.2 使 计算 机 跳 转 ( 使 用 GOTO 话 句 ) 


正 象 3.1 节 所 解释 的 ， 一 般 情况 下 计算 机 是 依次 执行 各 指令， 然而 
， 也 可 使 用 GOTO 语 句 让 计算 机 不 按 序 执行 指令， 请 在 31 节 的 程序 中 
擂 入 语句 “15 GOTO30” 得 到 : 


程序 3.2 


PR “HI COMX 35” 
GOTO 30 
证 

DR 放生 附加 GOTO 话 名 

PR. (5 十 6)* (9 一 7) P 

END 
RUN 
HI COMX 一 35 注 : 语句 20 并 随 之 
22 其 输出 ”5 "被 跳 过 。 
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COMX 一 35 提 要 : GOTO 话 名 


语句 "GOTO n 告诉 计算 机 下 一 步 不 再 执行 此 语句 的 后 续 


语句 ， 而 是 去 执行 行 号 n 的 语句 ， 这 种 语句 叫做 “无条件 转移 ” 
因为 它 不 管 什么 条 件 ， 总 是 让 计算 机 跳 转 或 转移 到 另 一 语句 ， 
如 果 没 有 写 上 行 号 ， 就 会 产生 错误 信息 。”n "可 以 是 表达 式 。 
因此 ， 象 "GOTO A-B” 和 “GOTO 50 半 (A 十 B) ”部 是 万 许 的 。 


3.3 显示 和 编辑 程序 


下 面 假 定 已 将 3.2 节 中 的 程序 打 进 计算 机 。 如 果 还 未 有 的 话 ， 请 在 
做 下 面 处 理 之 前 先 打 进去 。 


为 了 使 计算 机 显示 程序 ， 请 试 打 : 
LIST 


并 接着 按 C R 键 ， 这 时 计算 机 将 显示 出 刚 打 进 去 的 程序 ， 在 本 例 中 是 程 
序 3.2 。 


PRINT “HI COMX 一 35” 
GOTO 30 
了 有 2 十 3 


了 有 R (5 十 6) 米 (9 一 7) 
匡 ND 


若 要 更 替 某 一 行 ， 可 先 打 要 更 替 的 那 一 行 的 行 号 ， 然 后 打 进 新 的 指 
今 即 可 ， 例 如 要 更 奉行 15 的 内 容 ， 试 打 : 


15 GOTO 40 
LIST 工 
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计算 机 显示 出 : 


PRINT “HI COMX 一 35” 
GOTO 40 


PRINT 2+3 
PRINT (5+6) 米 (9 一 7) 
END 


若 要 删 去 一 行 ， 可 先 打 此 行 号 ， 然 后 按 C R 键 即 可 ， 例 如 要 删 去 行 
15， 试 打 : 


15 
LIST 工 


行 号 之 后 要 按 C R 


计算 机 将 显示 出 : 


“HI COMX 一 35” 
2 十 3 
(5 十 6) 洲 (9 一 7) 


若 要 在 行 20 和 行 30 之 间 揪 入 一 行 ， 可 选 一 行 号 ， 比 如 说 25， 然 后 打 : 


25 GOTO 40 
LIST 


计算 机 将 显示 出 : 


“HI COMX 一 35” 
2 十 3 


40 
(5 十 6) 米 (9 一 7 ) 
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COMX 一 35 附 往 : 关于 LIST 的 几 种 形式 


[TS 了 
LIS 宁 询 
[IST 元 兽 


语句 LIST ( 后面 不 跟 任 何 符号 ) 是 分 计算 机 显示 或 列 出 
全 如 程序 ， “LIST n” 仅 要 求 列 出 行 号 n 的 那 一 行 ，“LIST n， 
m ”要 求 从 行 n 开始 列 到 行 m 为 止 ,“n ”和 "”m” 都 可 以 是 算术 
表达 式 。 


如 果 表 达 式 的 值 不 是 程序 中 某 一 行 的 行 号 ， 那 么 计算 机 将 
列 出 此 值 后 面 最 接近 的 行 。 


COMX 一 35 提要 : 编辑 程序 


所 谓 编辑 程序 就 是 改正 或 修改 程序 ， 可 通过 使 用 行 号 来 更 
蔡 ， 删 去 或 插入 某 一 行 ， 并 总 是 使 用 LIST 来 列 出 该 程序 或 被 
编辑 过 的 那 一 部 分 ， 以 便 确 信 是 否 如 希 肇 的 那样 被 修改 好 ( 也 
可 参见 3 汪 节 ) 
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3.4 编写 一 个 能 从 键盘 接受 数据 的 程序 ( 使 用 INPRUT 语 句 ) 


从 3.3 节 中 最 后 一 个 程序 出 发 ， 试 打 : 


INPUT A,B 揪 进 新 的 INPUT 语 句 删 去 
行 10 
PRINT A+B 
删 去 行 25 和 30 


LIS 工 


经 过 这 样 编辑 之 后 ， 计 算 机 将 显示 出 : 
程序 3.4 


INPUT A，B 
PRINT A++B 


卫 ND 


行 5 是 输入 语句 ，A 和 B 是 “还 未 指定 的 ”或 “未 知 的 " 量 ， 称 为 变量 
， 当 计算 机 遇 到 INPUT 话 句 时 ， 就 停 下 来 并 在 显示 屏 上 输出 一 个 问号 
“? ”， 然 后 等 待 回答 用 户 ， 用 户 应 打 进 与 变量 个 数 相 同 的 若干 个 数 ， 这 
些 数 就 做 为 这 些 “ 未 知 量 " 或 “变量 ”的 值 。 


例如 A=2，B=3 试 打 : 
RUN 用 户 在 回答 ”? "时 输入 数据 作为 


8 2, 3 A,B 的 值 。 
5 计算 机 输出 ， 等 于 A 十 B 
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对 于 A =1012，B 王 4517 试 打 


A 和 B 的 另 一 对 数据 A 十 B 


1012，4517 


现在 已 经 有 了 一 个 当 给 出 二 个 数量 的 值 就 能 得 出 它们 的 和 的 程序 。 


请 试 : A 和 B 另 外 的 值 。 


下 面 ， 用 更 复杂 的 表达 式 来 蔡 换行 20 


20 了 PRINT (A 六 A 十 B 沙 B) 人 0.5 


INPUT A,B 


PRINTI (A 米 A 十 B 沙 B) 人 0.5 
卫 ND 


你 可 能 已 认 出 上 述 程 序 就 是 大 家 在 几何 中 所 熟知 的 勾 股 定理 的 应 用 
， 如 果 你 想 更 详细 了 解 此 定理 ， 请 读 下 面 的 脚注 ， 然 而 ， 重要 之 处 在 于 
说 明 这 三 行程 序 的 巨大 作用 。 
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可 以 将 行 5 修改 成 能 为 多 个 变量 接受 数据 ， 行 20 可 用 这 些 变量 的 更 
复杂 的 代数 表达 式 来 替换 ， 执 行 此 程序 时 ， 在 回答 ”? “时 就 给 这 些 变量 
赋值 ， 计 算 机 就 输出 此 表达 式 的 结果 ， 你 可 以 用 另外 一 组 数值 重新 计算 
而 无 需 再 打 进 此 表达 式 ， 你 输入 数据 ， 计 算 机 就 执行 程序 给 出 答案 ， 这 
就 是 计算 机 程序 的 功能 的 扶 通 ， 可 用 下 图 说 明之 : 


输入 数据 | 计算 机 程序 | _ 输 出 答案 


在 不 带 行 号 而 使 用 计算 机 时 〈 如 第 二 草 所 说 的 ， 即 所 谓 计 
算 器 方式 ) ， 对 每 一 组 数据 都 应 提供 计算 的 步 又 。 


COMX 一 35 附注 ; 勾 股 定理 


若 直角 三 角形 的 斜 边 长 为 C， 另 二 边 的 长 为 a 和 b“， 则 按 
照 勺 股 定理 有 : 


C 一 (a2 十 bz ) 手 


引 


就 是 说 ， 给 出 a 和 b ， 就 可 为 上 式 计 算 C， 为 了 用 BASIC 做 
到 这 一 点 ， 应 该 将 左边 代数 表达 式 改 写 为 BASIC 表达 式 ， 即 
(A 灶 A++B 灶 B )f+0.5， 下 一 节 将 再 给 出 这 样 一些 如 何 将 
代数 表达 式 改 写成 BASIC 表达 式 的 例子 。 
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3:5 代数 表达 式 和 BASIC 表达 式 


你 可 能 对 某 些 代数 公式 很 熟悉 ， 例 如 计算 圆 的 周 长 和 面积 的 公式 ， 
然而 ， 由 于 计算 机 只 能 认得 BASIC 表达 式 ， 故 在 将 这 些 代数 公式 输入 
计算 机 之 前 就 应 该 将 它 改写 成 等 价 的 BASIC 表达 式 ， 举 例 来 说 ，” a 
b”， ”ab”， ”ab" 应 该 相应 写成 ”aa 冰 b”，"aAb”， 
a 人 b ”。 下 面 的 表 给 出 另外 一 些 例 子 : 


表 3.5 将 代数 表达 式 转换 成 BASIC 表达 式 


1. 半 径 为 R 的 P1#R1f+2 
圆 面积 


.半径 为 R 的 2 沙 了 1 炒 及 
圆周 长 


,给 定 高 H 和 
底 B 的 三 角形 
面积 


.给 定 三 边 A，B，C S=(A+B++C)/2 
(和 S= 去 (A+B 二 C) S(S 一 A)(S 一 B)(S 一 C) (S 冰 (S 一 A) 半 (S 一 B) 
的 三 角形 面积 于 (S 一 C))f 0.5 


.给 定 直角 三 角形 C=(Az 十 B2? ) 苔 C=(A 水 A 十 B 冰 B) 1f+0.5 
二 边 A, B 求 斜 边 C 或 
C=(Af+2+Bf+2)10.5 


.给 定 二 次 方程 一 B 土 VBz 一 4AC X=( 一 B 二 (B 冰 忆 一 4 水 人 

AXz 十 BX+C= 0 ee 半 C) 人 0.5/C 半 A) 和 

求解 X 2A X=( 一 B 一 但 #B 一 4 水 A 
阔 C) 人 0.5/(2 阔 A) 


.年 复 利 率 为 P(1 十 R)n P 半 (1 十 R) fn 
R %， 求 为 P，n 年 后 
的 “本 利和 ” 


依照 3.4 节 的 3 行程 序 的 模式 的 表 3.'5 最 右 列 ， 试 写 出 全 导 七 个 问 
题 或 其 中 若干 个 的 程序 。 
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3.6 让 COMX 一 35 做 刊 灯 


傅 次 打 进 下 面 计算 三 角形 面积 的 程序 ，R UN ， 下 输入 三 组 数据 如 
下 


INPUT A,B,C 

IF A<0 THEN GOTO 50 

S 一 (A 二 B 二 CI)/2 
PRINT(S#(S 一 A)#(S 一 B) 半 (S 一 C)) 人 0.5 
GOTO 10 


26.，8328 

? 12, 14, 17 
83，0267 

? = 
READY 

: 合 


当 计 算 机 遇 到 行 40 的 语句 “GOTO 10"” 时 ， 它 总 是 转 回 到 话 名 10 六 
询问 另 一 组 输入 数据 ， 这 样 可 以 无 限制 地 进行 下 去 ( 假定 给 定 的 数据 是 
正确 的 ， 即 三 角形 任 二 边 之 和 大 于 第 三 边 ) ， 用 这 小 小 的 程序 就 可 以 计 
算 世 界 上 所 有 三 角形 的 面积 ! 问题 倒是 如 何 叫 COMX 一 35 停 下 来 ! 那 
是 行 20 的 目的 ， 这 个 新 的 语句 要 求 计 算 机 检验 A 的 值 ， 如 果 A 是 小 于 0 
， 那 末 转移 到 行 50 从 而 中 止 程序 的 执行 ， 这 个 “IF…THEN GOTO" 语 
句 称 为 条 件 转 移 ， 就 是 说 ， 如 果 某 个 条 件 为 真 时 就 转移 。 
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也 可 说 COMX 一 35 正在 根据 某 些 条 件 决 定 下 一 步 做 什么 。 


COMX 一 35 附 往 ;IF 话 句 


> 大 于 
< 小 于 


称 为 关系 算 符 ， 其 他 的 关系 算 符 是 


= 等 于 
< > 不 等 于 
> = 大 于 或 等 于 
<= “小 于 或 等 于 


在 很 多 BASIC 版 本 中 ,IFE…THEN GOTO"” 话 句 是 “IF “语句 
的 唯一 形式 ， 但 在 COMX 一 35 BASIC 中 ，“IF…THEN” 后 面 可 接 
一 组 语句 ( 用 冒号 分 开 ) ， 这 是 很 重要 的 改进 ， 更 加 实用 ， 使 程序 更 容 
易 理解 和 ”构造 ”。 

行 25 是 赋值 语句 ， 将 右边 表达 式 的 值 给 予 或 赋 给 左边 的 变量 。 

应 用 IEF' 话 句 的 这 第 二 种 形式 ， 上 述 程 序 可 改写 如 下 ， 但 仍 给 出 同样 
结果 。 


INPUT A,B,C 


IF A>0 THEN S=(A+B+C)/2 : 


PRINT(S#k(S 一 A)#(S 一 B)#k(S 一 C))0.5:GOTO 10 


ND 


如 果 A < 0， 就 跳 过 行 20， 到 行 30 执 行 停止 。 
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3:7 形成 搞 程 序 设计 的 好 习惯 
让 我 们 来 改进 程序 3.6， 打 下 列 各 行 : 


程序 3.7 


REM THIS IS A PROGRAM TO COMPUTE THE 
AREA OF A TRIANGLE 

PRINT"“THIS PROGRAM COMPUTES THE AREA 
OF A TRIANGLE” 

INPUT"“PLEASE INPUT THE LENGTHS OF 
THE SIDES A,B,C”A,B,C 

IF A<0 THEN GOTO 120 

S=(A 十 B 二 C )/2 

IF S<A THEN GOTO 100 

IF S<B THEN GOTO 100 

IF S<C THEN GOTO 100 

工 =G#k(S 一 A)#(S 一 B )#(S 一 C )) 人 0.5 
PRINT7THE AREA OF THE TRIANGLE 一 ”; T 
GOTO 10 

PRINT7”INCORRECT DATA :TWO SIDES OF 
THE TRIANGLE NOT LONGER THAN THE 
THIRD” 

GOTO 10 

PRINT“END OF SESSION"”END 


THIS PROGRAM COMPUTES THE AREA OF A 
TRIANGLE 

PLEASE INPUT THE LENGTHS OF THE SIDES 
A,B,C?12,13,14 

THE AREA OF THE TRIANGLE 三 72.3079 
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PLEASE INPUT THE LENGTHS OF THE SIDES 
ABC312,13;26 

INCORRECT DATA :TWO SIDES OF THE TRIANGLE 
NOT LONGER THAN THE THIRD 

PLEASE INPUT THE LENGTHS OF THE SIDES 
AiBwG2 15253 

END OF SESSION 


让 我 们 来 解释 刚才 所 做 的 事情 ， 


行 1 用 键 词 REM(REMARK 的 缩写 ， 注 解 的 意思 ) 开头 ， 在 它 后 
面 可 插 进 注解 的 内 容 ， 用 于 解释 程序 是 做 什么 的 或 如 何 做 的 ，REM 话 
句 可 用 在 程序 的 任何 地 方 ， 可 以 用 LIST 将 它 显 示 出 来 ， 但 在 程序 执行 
过 程 ， 计 算 机 却 不 理 皮 它 ， 它 是 写 给 程序 的 读者 ， 而 不 是 给 计算 机 的 。 


行 10 类 似 于 前 面 所 用 的 INPUT 语句 ， 只 是 多 了 一 时 可 插入 信息 的 
引号 ， 该 信息 在 提示 你 输入 数据 的 问号 ”?“ 前 被 打印 出 来 。 


同样 ， 行 80 类 仍 于 前 面 所 用 的 PRINT 语句 ， 仅 是 在 变量 T 之 前 加 
了 用 引号 括 起 来 的 信息 ， 赣 在 此 信息 和 变量 之 间 用 分 号 分 开 ， 这 样 就 有 
可 能 插入 用 以 解释 T 的 量 义 的 信息 。 


如 果 数 据 是 不 正确 的 ， 由 行 40，50 和 60 转 到 行 100 打印 出 错误 的 信 
息 ， 象 输入 的 第 二 组 数据 就 是 如 此 ， 其 中 12 二 13<26。 


比较 一 下 程序 3.7 和 程序 3.6， 看 来 前 者 包含 更 多 的 词 ， 信 息 和 解 
释 〈( 用 作 “ 说 明 性 文件 ”) ， 其 目的 是 使 得 程序 和 输出 的 伙 义 更 清楚 和 
更 易 阅 读 。 对 一 个 简短 的 程序 来 说 ， 程 序 的 思路 始终 很 清晰 ， 这 种 ”说 
明 性 文件 ”也 许 是 不 必要 的 ， 但 对 一 个 长 程序 ， 对 初次 接触 程序 的 人 ， 
或 什 至 你 自己 在 摘 了 几 星 期 之 后 ， 这 种 “说 明 性 文件 ”就 是 很 需要 的 了 
。 现 在 你 刚 开始 学 习 程 序 设 计 ， 很 希 记 你 形成 芒 好 习惯 ， 随 时 用 "REM 
信息 “说明 你 的 程序 。 
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3.8 程序 设计 的 简单 练习 及 答案 


记 住 我 们 的 座右铭 : “学 习 程序 设计 靠 动手 ”， 可 以 肯定 ， 当 你 滥 
照 这 种 方法 交 在 COMX 一 35 上 做 出 各 种 试验 之 后 ， 那 么 你 对 计算 是 怎 
么 一 回 事 就 有 了 更 多 的 了 解 ， 而 且 有 了 进一步 学 习 的 页 好 基础 ，“ 透彻 
的 理解 来 源 于 实践 ”， 下 面 的 练习 为 你 提供 更 多 实践 的 机 会 。 


复 利 计算 
问题 的 叙述 


给 定 ，P = 本钱 或 期 初 总 数 ( $ ) 
R 王 年 利率 ( % ) 
Y = 年 限 
T = 一 年 中 计 利 的 次 数 ， 例 如 ， 
若 每 天 计算 ， 则 T 王 365 
要 求 编写 一 个 程序 输出 
F 王 本 利和 ， 或 期 终 总 数 ( $ ) ， 


看 答案 之 前 先 编 自 己 的 程序 ， 学 习 用 另外 的 方法 。 


迟 


REM THIS PROGRAM COMPUTES THE 
PRINCIPAL PLUS 

REM INTEREST F，GIVEN 

REM P=THE PRINCIPAL($) 

REM R=ANNUAL INTEREST RATE(%) 


及 卫 ME Y=NUMBER OF YEARS 

REM T=NUMBER OF TIME/YEAR INTEREST 
IS COMPOUNDED 

及 卫 M INPUT P= 一 999 TO STOP 

PRINT “THIS PROGRAM COMPUTES 
PRINCIPAL PLUS COMPOUND INTEREST” 
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77 PRINT 

78 PRINT 

80 INPUT “PRINCIPAL”P 

85 IF 了 三 一 999 THEN GOTO 210 

90 INPUT “ANNUAL INTEREST”R 

100 INPUT "NUMBER OF YEARS”Y 

110 INPUT "NUMBER OF TIMES INTEREST IS 
COMPOUNDED IN A YEAR"”T 

115 REM LINES 120 TO 150 DETECT 了 RRORS 
IN THE INPUT DATA 

120 IF P<OTHEN GOTO 190 

130 IF R<OTHEN GOTO 190 

140 IE Y<O THEN GOTO 190 

150 JEFT<1ITHEN GOTO 190 

160 ”下 =P 半 (1 十 R 人 100 炒 工 ) ) 个 (Y 洲 工 ) 

165 ”PRINT 

170 “ PRINT “PRINCIPAL PLUS INTEREST 王 $” ;FF 

180 GOTO 77 

190 “ PRINT 

195 ”PRINT “INCORRECT DATA TRY AGAIN” 

200 GOTO 77 

210 PRINT 

215 “ PRINT “END OF SESSION”: END 


RUN 


THIS PROGRAM COMPUTES PRINCIPAL PLUS 
COMPOUND INTEREST. 


PRINCIPAL ? 1000 

ANNUAL INTEREST ? 15 

NUMBER OF YEARS? 5 

NUMBER OF TIMES INTEREST IS COMPOUNDED IN 
A YEAR? 365 


PRINCIPAL PLUS _ INTEREST 一 $2115.99 
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PRINCIPAL ? 15000 

ANNUAL INTEREST ? 10 

NUMBER OF YEARS? 3 

NUMBER OF TIMES INTEREST IS COMPOUNDED IN 
A YEAR? 12 


INCORRECT DATA TRY AGAIN 


PRINCIPAL ? 15000 
ANNUAL INTEREST? 10 
NUMBER OF YEARS? 3 


NUMBER OF TIMES INTEREST IS COMPOUNDED IN 
A YEAR? 12 

PRINCIPAL PLUS INTEREST 三 $20222.6 

PRINCIPAL ? 一 999 


END OF SESSION 


你 自己 编 的 程序 不 会 与 所 给 的 解答 完全 相同 ， 主 要 有 些 什么 不 同 ， 
想 想 那 一 个 更 好 ， 如 果 是 你 的 好 也 不 要 惊奇 ! 


碳 元 素 测 年 法 


一 件 古代 文物 ， 例 如 找到 一 块 化 石 或 一 具 木 力 伊 ， 往 往 对 确定 它 的 
年 代 感 兴趣 ， 其 中 一 种 方法 就 是 碳 元 素 测 年 法 。 


COMX 一 35 附注 : 关于 破 元 素 测 年 法 


通过 科学 测定 物体 中 所 含 碳 14 ( 一 种 放射 性 同位 素 ) 与 大 


气 中 碳 14 含 量 的 百分比 P， 再 由 放射 性 的 误 变 率 R， 就 可 用 下 


式 确定 物体 的 年 代 T : 


其 中 R 由 半衰期 决定 ， 所 谓 半衰期 是 指 碳 同位 素 失 去 一 半 放 射 
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作用 所 需 的 年 限 ， 因 此 


由 《1>》 和 《2 得 


了 ) 
100 


也 
100 


T 三 一 H log( /log e2 


一 HAbs(1log )/log e2 


其 中 也 等 于 5730 年 ， 故 给 出 P， 就 能 计算 T。 
问题 的 叙述 


给 出 P， 即 物体 中 碳 14 "的 百分数 ， 科 学 上 可 用 下 式 计 算 物 体 的 年 
代 工 〈 以 年 计 ) 


T=5730Abs(logT05 )/log e2 


要 求 你 编写 一 个 附 有 适当 说 明 性 文件 的 程序 ， 它 能 接受 用 户 输入 口 
， 输出 物体 的 年 代 T。 


解答 


10 REM THIS PROGRAM DETERMINES THE AGE OF 


20 “REM AN OBJECT BY CARBON DATING 
30 ”REM 了 =THE PERCENTAGE OF 

40 ”有 R 王 M CARBON 14 IN THE OBJECT 

50 ”REM RELATIVE TO THAT FOUND IN 

60 REM THE ATMOSPHERE 


70 REM 工 =AGE OF OBJECT IN YEARS 
80 REM TYPE P=999 TO STOP 

90 ”PRINT “CARBON DATING” 

100 PRINT 
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RUN 


INPUT “PERCENTAGE LEVEL OF RADIO -- 
ACTIVITY”P 

IF 了 三 一 999 THEN GOTO 180 

IF P<0 THEN GOTO 160 

IF P>100 THEN GOTO 160 

T=5730 半 ABS(LOG(P/100) )XLOG(2) 

PRINT “AGE OF OBJECT IN YEARS 王 ”; 工 

GOTO 100 

PRINT “INCORRECT DATA :TRY AGAIN” 

GOTO 100 

PRINT “END OF SESSION”: END 


CARBON DATING 


PERCENTAGE LEVEL OF RADIOACTIVITY ? 52 
AGE OF OBJECT IN YEARS 王 5405.78 
PERCENTAGE LEVEL OF RADIOACTIVITY ? 120 
INCORRECT DATA :TRY AGAIN 

PERCENTAGE LEVEL OF RADIOACTIVITY ?2 80 
AGE OF OBJECT IN YEARS 王 1844. 65 
PERCENTAGE LEVEL OF RADIOACTIVITY ? 一 999 
END OF SESSION 
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3.9 进行 循环 ( 使 用 FORVNEXT 循 环 语 包 ) 


你 大 概 还 记得 3.4 节 中 那个 三 行程 序 是 怎样 计算 世界 上 所 有 三 角形 
的 面积 的 ! 其 诀 虹 就 是 使 用 GOTO 语 句 转 回 到 程序 的 开头 ， 有 另 一 种 方 
法 告诉 计算 机 反复 执行 某 一 组 指 今 ， 这样 的 一 组 指 今 就 称 为 循环 ， 我 们 
说 绕 循 环 ( 即 一 组 指 今 ) n 次 或 简单 就 说 循环 n 次 。 


试 ; 下 面 程序 : 


FEOR I=1 TO 100 STEP 1 
PRINT “COMX 一 35”; 
PRINT IS_CLEVER- 


NEXT I 


看 会 出 现 什么 ?” 屏 上 将 充满 一 行 : 信息 “COMX 一 35 IS CLEVER” 
， 刚好 出 现 100 次 。 


10 行 中 的 FOR 语句 和 40 行 中 的 NEXT 语 句 是 作为 一 个 “FOR 一 
NEXT ”时 起 作用 的 ， 这 一 对 就 告诉 COMX 一 35 重复 执行 在 其 中 间 ( 
行 20 和 行 30 ) 的 指令 100 次 ， 即 从 I=1 开 始 用 步 长 1 一 直到 I=100。 

再 试 : 


10 FOR I=0 TO 2000 STEP 2 
20 PRINT 工 ， 


30 NEEXT I 
RUN 


屏 上 充满 ”024…2000 ”本 例 中 步 长 是 2， 因此 输出 1001 个 数 ， 逐 
行 分 析 如 下 : 
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表 3.9 逐 行 说 明 FORVNEXT 循环 的 作用 


作 “用 


今 I=0 
打印 0 
I 坛 如 2 ( 步 长 值 ) ， 转 回 到 10 


I 一 2 
打印 2 
I 坛 加 2 ， 转 回 到 10 


I 一 4 
打印 4 
I 坛 加 2 ， 转 回 到 10 


这 样 一 直 进 行 下 去 包括 到 I 王 2000， 循 环 才 停止 ， 请 注意 ， 在 本 例 
中 ， 重 复 执行 的 20 行 的 PRNT 指令， 其 中 的 工 是 变化 的 。 


步 长 可 以 是 负 值 ， 试 : 


FOR A=11 TO 8 STEP 一 1 
PRINT A 

NEXT A 

PRINT “FINISH” 


FINISH 


45 


如 果 没 有 指 今 步 长 ， 就 当 作 步 长 是 1， 另 外 ， 一 个 FOR NEXT 
循环 之 内 可 以 有 另 一 个 FOR NEXT 循环 ， 这 种 情况 称 为 循环 的 ” 舱 
套 ”。 


试 
外 循环 
FOR A=1 TO 3 
FOR B=1 TO6 STEP 2 
PRINT A，B 内 循环 


NEXT B 
NEXT A 
PRINT “FINISH” 


天 用 | 
和 
1 5 
2 1 

党 
2 5 
3 
3 3 
3 


Cn 


对 每 通过 外 循环 一 次 ， 即 对 每 个 A 值 ， 内 循环 就 要 重复 三 次 ， 顺 着 ， 
上 述 程 序 ， 注 总 其 中 A 和 B 的 值 如 何 变化 ， 特别 是 当 A 从 1 变 到 2 时 ， 
B 在 B 王 1 开始 。 
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做 为 最 后 一 例 ， 试 : 


FOR A=1 TO 10 
IF A=4 THEN A=9 
PRINT A 

NEXT A 

PRINT “FINISH” 


FINISH 


请 注意 行 20 的 IF 语句 如 何 将 循环 次 数 从 10 减 为 5。 
3.10 将 复杂 程序 分 块 ( 使 用 子 程序 ) 一 一 GOSUB 和 RETURN 


设想 你 要 编写 一 个 能 做 类 似 于 “空间 入 侵 者 ”的 游戏 的 程序 ， 很 多 
人 由 于 能 忆 这 种 游戏 程序 而 致富 和 出 名 ， 借 助 隐 明 的 COMX 一 35 BA- 
SIS， 彩 色 绘图 和 香 响 效果 ， 你 也 有 可 能 做 到 这 一 点 ， 。 


一 种 方法 是 鉴别 各 次 要 重复 执行 的 作业 ， 例 如 作业 1 是 在 屏 上 任 重 
位 置 驱动 空间 飞船 ， 作 业 2 是 驱动 火箭 发 射 器 ， 作 业 3 是 当空 间 飞 船 被 
击 中 时 产生 彩色 图 象 和 理 响 效果 ， 作 业 4 是 当 火 季 发 射 器 破 击 中 时 产生 
彩色 图 象 和 香 响 效果 ， 作 业 5 是 断定 空间 飞船 是 否 已 被 击 中 ， 等 等 。 


为 了 模拟 一 舟 运 动 中 的 空间 飞船 ， 在 原始 位 置 驱 动 空间 飞船 ( 用 所 
谓 作业 1 ) ， 但 使 用 背景 的 颜色 ， 这 样 将 探 掉 原 始 的 空间 飞船 ， 现 在 将 
空间 飞船 从 其 原来 位 置 治 飞行 方向 稍为 移动 ， 如 果 这 样 迅 速 地 重复 许多 
次 ， 就 得 到 一 盘 在 飞行 的 空间 飞船 ， 但 这 时 就 要 求 对 作业 1 作用 很 多 次 。 
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现在 ， 


作业 1 用 一 程序 块 来 实现 ， 如 果 凡 是 在 空间 飞船 被 驱动 的 地 


方 都 插 进 这 个 程序 块 ， 那 么 整个 程序 就 需要 很 长 ， 另 一 种 方法 是 将 作业 
1 的 程序 ( 称 为 子 程序 ) 储存 在 某 个 地 方 ， 然 后 在 主 程序 中 处 是 空间 飞 
船 被 驱动 的 地 方 就 插入 ”转子 程序 " 即 ”GOSUB “语句 ， 图 3.10 对 此 


做 了 说 明 ， 


第 一 步 


第 四 步 


第 五 步 


第 六 步 


第 七 步 


第 八 步 


其 中 带 号 码 的 箭头 相应 于 下 列 各 步 。 


当 计 算 机 遇 到 行 110 的 ”GOSUB 5000 ”时 ， 就 转移 控制 到 
行 5000 的 子 程 序 的 开头 。 


执行 子 程序 中 的 指 分， 一 直到 最 后 一 条 指 分 RETURN。 


控制 返回 到 行 120， 即 紧 接 在 行 110 的 “GOSUB "语句 之 后 
的 那 一 行 。 


继续 执行 主 程序 


计算 机 在 行 210 光 到 另 一 个 "GOSUB 5000 ”，, 象 第 一 步 一 
样 ， 控 制 转移 到 子 程序 的 开头 。 


同 第 二 步 。 


控制 返回 到 行 220 。 


继续 执行 主 程序 。 


100 REM DRAW SPACE SHIP 5000 REM SUBROUTINE TO 
110 GOSUB 5000 5010 REM DRAW SPACE 


5 


120 


SHIP 


图 3:10 分 步 说 明 主 程序 用 GOSUB 调用 子 程序 的 动作 。 
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注重 ， 在 “GOSUB N ”中 ，N 是 子 程序 的 头条 指 今 的 行 号 ， 而 且 
， 子 程序 总 是 以 RETURN 话 句 结尾 。 


为 了 说 明子 程序 的 用 法 ， 下 面 编 一 个 找 出 三 个 整数 A，B 和 C 的 最 
大 公约 数 即 GCD ( 也 称 为 最 高 公 因 子 ，HCF ) 的 程序 ， 我 们 需要 一 个 
找 二 个 数 的 GCD 的 子 程序 。 设 A，B 的 GCD 是 Y， 然 后 再 调用 子 程序 
找 Y 和 C 的 GCD， 那 么 所 得 结果 就 是 A，B 和 C 的 GCD 。 


最 大 公约 数 


10 REM THIS MAIN PROGRAM 

20 REM THE GCD OF INTEGERS 

30 ”REM A,B,C 

40 REM 

42 PRINT “THIS PROGRAM FINDS THE GCD” 
43 了 了 RINTI 

50 INPUT “A”， A 

55 IF A<0TITHEN GOTO 150 

60 INPUT “B”，B 

砚 PUT “CC 己 

80 三 A 

90 YY=B 

100 GOSUB 1000 

110 X 王 C 

120 GOSUB 1000 

130 PRINT “THE GREATEST COMMON DIVISOR=”;， Y 
140 GOTO 50 

150 PRINT “END OF SESSION”; END 

1000 RE 世 M THIS SUBROUTINE FINDS THE GCD OF 
1010 REM TWO INTEGERS X AND Y 

1020 REM AND TIHE GCD 王 上 

1030 REM 

1040 Q=INT(X/XY ) 
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及 三 叉 一 QY 
IF R=OTHEN GOTO 1100 
又 一 了 


YY 三 有 
GOTO 1040 
RETURN 


3'11 进一步 编辑 的 方法 


由 于 编写 较 长 的 程序 时 ， 很 可 能 常 发 生 错 误 ， 因 此 用 2.1 节 和 3.3 
节 所 介绍 的 编辑 方法 可 能 就 不 锡 适 用 ， 编 辑 时 除了 使 用 “DEL ” 键 ，“ 
CNTL ”和 ” 行 号 ”( 见 2.1 节 和 3.3 节 ， 实 际 上 COMX -- 35 还 提供 
更 实用 的 方法 来 修正 程序 中 的 错误 。 


这 可 通过 使 用 命 朗 EDIT 来 实现 ， 其 形式 是 
也 DIT 
其 中 X 是 整数 ， 记 需要 修正 的 语句 的 行 号 。 


机 器 对 下 DIT X 的 应 答 是 显示 出 行 X， 这 时 计算 机 是 在 ”编辑 状态 ” 
( 即 在 EDITOR 的 控制 下 而 不 是 在 ”COMX 一 35 BASIC ”状态 ,后 者 
使 COMX 一 35 处 于 BASIC 解释 的 控制 下 ( 见 4:3 节 ) )， 用 户 可 移 
动 光标 ( 按 空 棒 ) 到 所 显示 的 下 面 需要 修改 的 字符 之 前 ( 即 其 右边 ) 一 
个 字符 的 位 置 上 ， 这 时 有 三 种 可 供 选择 的 编辑 方法 ， 用 户 可 打工 ( 用 于 
插入 ) ，D (用 于 删 去 ) ， 或 C ( 用 于 更 换 ) ， 挑 选 好 那 一 种 选择 ， 相 
应 就 显示 出 所 选择 的 字符 ( 工 ，D 或 C ) ， 同 时 光标 即 落 到 要 修改 的 字 
符 下 面 。 


选择 插入 ， 就 可 将 字符 加 进 或 插入 到 由 工 所 指定 的 位 置 的 后 面 ， 选 
择 删 去 时 ， 则 每 按 一 次 空 棒 就 依次 将 一 个 字符 以 行 中 删 掉 ， 也 就 是 说 ， 
按 几 次 空 棒 ， 就 删 去 几 个 字符 ， 选 择 更 换 时 ， 就 以 所 打 入 的 字符 依次 替 
换 C 后 的 每 个 字符 。 
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用 户 在 做 了 要 做 的 修改 之 后 ， 可 打 CONTROL S ( 按 住 CNTL 
键 再 打 S ) ， 让 已 修改 过 的 行 X 重 打出 来 ， 请 注意 ， 每 次 只 万 许 一 种 选 
择 ( 工 D 或 C ) 不 过 ， 需 要 的 话 ， 用 户 可 对 每 种 选择 根据 需要 及 复 做 
各 种 改正 的 练习 ， 做 了 练习 之 后 ， 再 按 CNTL S 以 便 以 编辑 状态 ” 退 
出 ”， 说 明 对 行 驻 的 编辑 已 完成 。 


上 面 所 讲 的 可 解释 如 下 ， 其 中 用 "u "来 记 空 棱 ， 打 


10 PRINT “HELELO” 


为 了 编辑 行 10， 打 正 DIT 10 可 得 


: 了 DIT 10 
PRINTI “有 了 DO 


其 中 要 编辑 的 是 行 10， 现 在 移 光 标 到 ”号 的 下 面 准备 接受 下 一 步 动作 。 


如 果 要 在 行 10 中 HELLO 之 前 插入 SAY ，, 则 应 选择 I， 赣 打 SAY 
再 按 空 棒 ， 得 到 


: 卫 DIT 10 


10 PRINT “瑟瑟 O” 
ISAYU 


现在 打 CNTL S， 得 到 


10 PRINT “SAY HELLO” 


再 打 一 次 CNTL S 以 从 编辑 状态 退出 。 


如 果 要 删 去 SAY， 站 将 HELLO 改 为 JERRY， 就 选择 D， 接 着 按 
4 次 空 棒 ， 得 到 
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: 卫 DIT 10 
10 PRINT “ SAY HELLO 


Duuuu 


注意 ， 相 应 D 后 面 的 每 一 个 u， 就 删 去 一 个 字符 ， 按 CNTL S 显 示 改 正 
过 的 这 一 行 ， 钙 然 编辑 还 未 完成 ， 就 不 要 在 这 时 退出 编辑 状态 ， 继 续 下 
去 ， 蓄 移 光 标 到 被 改过 的 行 中 ”号 的 下 面 ， 同 时 选择 更 换 


10 PRINT “HELLO” 
CJERRY 


按 CNTL S 就 显示 出 


10 PRINT 可 也 FRRY2” 


注 则 ，5 个 字符 HELLO 已 被 另外 5 个 字符 JERRY 所 替换 处 现在 编辑 
工作 已 完成 ， 再 按 CNTL S 退出 编辑 状态 ， 计 算 机 将 应 答 以 


READY 
: 多 
此 即 说 明 控制 已 返回 到 COMX 一 35 BASIC 解释 状态 。 


若 在 一 个 简短 的 行 中 出 现 错误 ， 则 编辑 的 最 简单 方法 是 用 同一 行 号 
重 打 这 整 行 ， 对 于 一 个 较 长 的 行 ， 在 修改 老 的 错误 时 有 可 能 出 现 新 的 错 
误 ， 在 这 种 情况 下 ， 最 好 用 EDIT。 


在 编辑 状态 下 按 CNTL C 将 会 使 编辑 状态 失效 并 退回 到 BASIC 状 
态 而 留 下 要 编辑 的 行 不 变 。 


3':12 产生 特定 的 图 示 字 符 


3.12.1 内 部 “图 示 字 符 ”一 一 用 画 数 CHR$ 


要 试 机 内 的 “图 示 字 符 ”， 可 执行 下 面 的 程序 


程序 3.12:1 


FOR I=0 TO 127 
PR 了 忆 BR SS 人 (下 和 ” 
IF I=127 THEN PR 


NE 卫 XT 


关于 画 数 CHR$ (X ) 的 应 用 ,在 5.5 节 中 有 详细 介绍 ， 简 要 而 言 
,CHR$ (X ) 是 一 个 函数 ， 它 对 每 个 给 定 的 整数 X， 给 出 一 个 字符 ， 
对 每 个 键 ， 相 应 地 都 有 一 个 整数 或 代码 ( 严格 地 说 是 ASCII 代 码 ， 其 中 
ASCII 是 “Ameriean Standard Code for Information Inter- 
change” 的 缩写 ) 和 一 个 字符 ， 例 如 键 A 的 代码 是 65 ( 65 是 十 进 数 ， 写 
成 16 进 制 就 是 41 ) 通常 按 下 键 A 时 就 输出 字符 A， 因 此 “PR CHRS$ 
65 ) ”就 等 价 于 "PR _A”。 所 以 上 述 程序 将 显示 出 代码 是 0 到 12 7 所 相 
应 的 全 邵 128 个 字符 ， 现 在 ， 当 COMX -- 35 第 一 次 运行 时 ， 相 应 于 十 
进 代码 32 到 95 和 160 到 223 的 字符 给 出 的 是 标准 字符 ( 即 是 S P ! 等 等 
包括 1,2，……'， 9,A,B,C，……… , 乙 等 ) 为 附录 A .2 所 示 ， 相 应 于 十 进 代码 
0 到 31，96 到 127,144 到 159 和 224 到 255 的 键 给 出 内 邵 图 示 字 符 ， 例 
如 PR CHR $(21) 将 打印 出 青色 的 六 边 形 。 


试 打 


PRRYCHRS (11ld2 二 03) 
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蓝 按 C R“， 这 时 将 打印 出 三 个 内 邵 字 符 边 连 边 构成 一 幅 飞 机 图 案 。 
若 要 得 到 比较 长 的 飞机 ， 可 打 
PR CHRV$ (111,112, 112, 112, 113) 


如 果 按 住 SHIFT 键 ， 再 按 0 键 (一 次 ) ，P 键 (3 次 ) 和 Q 键 
1 次 ) ， 也 可 得 到 同样 的 图 案 。 


3'12.2 用 户 自 定 文字 符 一 一 使 用 SHAPE 指 今 


可 以 重新 定义 某 个 键 所 代表 的 字符 ， 例 如 可 以 对 十 进 代码 65 重 新 定 
义 一 个 字符 ， 使 得 按 下 键 A 时 给 出 的 不 是 字母 A 而 是 一 个 汉字 。 


这 可 用 指令 SHAPE 实现 ， 其 形式 为 ( 对 使 用 PAL 制 的 电视 ) : 
SHAPE(X“18 位 十 六 进 数 ”) 


其 中 X 是 整数 ， 相 应 于 该 键 的 十 进 代 码 ， 一 对 双 引 号 内 的 是 18 位 十 六 进 
数 ， 用 它 来 指定 字符 的 颜色 和 形状 ， 试 打 


10 。 SHAPE(65，“48487E6A7E48484800”) 
RUN 
( 注 伙 : SHAPE 也 可 在 不 带 行 号 的 直接 执行 方式 中 使 用 。 ) 


这 时 按键 A 就 会 印 出 粉红 色 的 汉字 “中 ”， 事实 上 ， 我 们 要 到 ， 在 执 
行 上 述 SHAPE 指 今 之 后 ， 屏 上 所 有 的 字母 A 的 地 方 都 代 以 中 字 。 


再 试 试 下 列 一 些 例 子 ， 你 就 能 锡 领 略 这 些 指 今 的 奇妙 的 魔力 
例 1 SHAPE(153,“8F8D8C5C7E7E7E5C00”) 


当 你 打 "PRINT CHR $(153) "时 就 显示 出 一 个 苹果 。 
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例 2 SHAPE(119,“84848CBF9E9C94A400”) 


只 要 你 按 按 下 SHIFT 键 时 按 字 母 "W"”， 计 算 机 就 相应 给 出 一 颗 绿 色 的 
星 。 


例 3 SHAPE(20,”00000000FFFFFDF00”) 
SHAPE(21, “00FCFCFCFFEFEFFEFEFF00”) 
SHAPE(22,“00000000FEFFFFFE00”) 


在 按 CNTL-T ，CNTL-U 和 CNTL 一 V 之 后 ， 就 能 在 屏 上 得 到 一 稻 
洗 水 艇 。 


对 使 用 NTSC 制 的 电视 ， 不 用 18 位 十 六 进 数 ， 而 只 用 16 位 十 六 进 数 
来 指定 其 形状 。 


六 和 16 个 丰 办 字 生 ， 风 上 ， 除了 0,1,… 9 外 ， 
还 需要 6 个 字符 来 代表 “10”“11”,…”15”， 通 常 就 取 A,B,C,D， 


E,FE ， 使 用 4 we ， 因 此 ， 
111/1010/0001/0010/X0001 
变 成 十 六 进 数 就 是 7Al121 


为 了 确定 此 9 对 十 六 进 数 ， 考 虑 一 个 8 单位 X 9 单位 的 矩形 如 下 : 


图 3.12 为 得 到 字符 "中 "如何 写 SHAPE 指 兮 


项 是 重 国 缘 属 病 古 


本 面 面 硬 图 面 面 硬 
因 轩 7 人 和 攻 攻克 
r 厅 4 | 一 一 (6A) 十 六 进 


9 
目 四 乡 2 多 咏 % 国 
三 御 画 醒 多面 画面 


用 于 指定 用 于 指定 
颜色 的 位 形状 的 位 
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考虑 每 行 的 8 个 方 格 ， 最 左边 二 个 方 格 ， 可 填 1 和 0， 按照 表 3.12.2 
用 于 决定 余下 的 六 个 方 格 的 颜色 ， 每 行 最 右边 的 六 个 方 格 的 每 一 个 如 果 
该 方 格 要 “被 打印 "或 “被 十 满 ” 就 相应 取 1， 否 则 ( 即 是 说 ， 如 果 它 与 背 
景 颜 色相 同 ) 就 取 0。 因 此 ， 头 二 列 方 格 ( 从 左 算 起 ) 用 于 决定 颜色 ， 
而 最 右边 6 列 方 格 ( 6 X 9 个 方 格 ) 用 于 决定 形状 ， 每 一 行 编 成 二 位 十 
六 进 数 代 码 9 行 ， 一 共 就 需要 18 位 十 六 进 数 来 同时 决定 颜色 和 形状 。 例 
如 ， 图 3.12 中 从 项 上 数 起 第 4 行 ， 如 果 要 选择 粉红 色 ， 那 么 最 左边 二 位 
应 是 “01”( 见 表 3.12.2 ) 剩 下 6 位 为 图 312 所 示 应 是 "101010”，“ 填 满 
方 格 ”的 代码 是 "1 ”,“ 留 空 方 格 ”的 代码 是 ”0 "”， 这 个 八 位 式 ”0110 
1010 ”可 代 以 2 位 十 六 进 数 6A， 因 此 ,第 4 对 ( 相应 于 第 4 行 ) 十 六 进 
数 是 6A ( 见 图 3.12 ) ， 要 注 砷 ， 对 PAL 人 制 ， 每 个 字符 的 分 辩 力 是 6 X 9 
个 点 ， 对 NTSC 人 制 ， 只 需 8 对 十 六 进 数 来 给 出 6 x 8 个 点 ， 如 果 位 数 比 
需要 的 多 ， 则 余下 的 机 器 不 予 理 皮 ， 对 这 两 种 情况 每 个 字符 都 可 以 是 多 
种 颜色 ， 还 要 注 显 ， 当 定义 了 形状 之 后 ， 可 用 字符 串 变 量 代替 文字 ， 而 
且 用 户 重 新 定义 的 字符 或 符号 可 像 其 他 原 有 的 字符 一 样 打印 出 来 。 


这 种 重新 定义 的 字符 在 切断 电源 或 系统 重 针 ( 即 同时 按 键 和 
空 棒 ) 时 就 复原 。 


表 3.12.2 每 行 方 格 的 颜色 当 作 头 二 位 的 画 数 


二 颜色 ( 如 果 用 | 颜色 ( 如 果 从 
最 左边 一 位 | 计算 机 输出 ) | 键盘 输入 ) 


红色 


粉红 色 
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3'13 时 间 控 制 的 子 程序 指 今 TIMOUT 和 TIME 的 用 法 


联合 使 用 指令 TIMOUT 和 TIME 就 使 程序 员 能 在 经 过 指定 的 时 间 
后 调用 子 程序 ， 使 用 指 分 


TIME(X ) 


其 中 X 是 整数 ， 就 可 做 成 一 个 " 闪 钟 ”， 当 执行 上 述 指 今 时 ， “时 钟 "就 开 
始 汉 响 ， 过 了 X 单位 时 间 之 后 ， 指 兮 


TIMOUT Y 


起 作用 ， 它 指挥 计算 机 跳 转 到 其 起 始 引号 为 Y 的 子 程序 


在 COMX 一 35 的 PAL 制 中 ，50 个 单位 相当 于 1 秒 。 


在 COMX 一 35 的 NTSC 制 中 ，60 个 单位 相当 于 1 秒 。 


含有 时 间 控 制 子 程序 的 程序 的 典型 结构 及 其 执行 的 顺序 在 图 3.13 中 
加 以 说 明 


第 1 步 : 光 到 指令 TIMOUT (1000 ) 计算 机 记 住 子 程序 的 开始 地 址 
， 但 仍 未 有 其 他 动作 ， 


执行 指令 TIME(150) 钟 "开始 涵 路 响 。 

第 2 步 ; 计算机 照常 执行 。 

第 3 步 : 在 执行 语句 100 之 后 再 经 过 150 个 时 间 单 位 (对 PAEL 机 即 
是 3 秒 , 对 NTSC 机 是 2.5 秒 ) ，“ 阅 钟 "就 指挥 计算 机 跳 转 到 子 程序 的 
开头 。 

第 4 步 ; 执行 子 程序 ， 通 常 在 子 程序 里 面 也 放 一 个 “ 钟 ”, 但 也 不 是 


一 定 的 ， 语 句 1990 说 明 该 “ 钟 "是 用 以 在 经 过 100 个 时 间 单位 后 发 出 “ 警 
报 "的 。 
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第 5 步 : 执行 到 RETURN， 控 制 返回 到 TIMOUT 后 面 的 语句 20。 


第 6 步 ; 计算 机 照常 执行 下 去 ， 一 直到 从 语句 1990 算 起 ， 经 过 100 
个 时 间 单 位 时 ， 控 制 再 度 转 向 子 程序 。 


TIMOUT 1000 REM THIS IS THE 
REM BEGINNING OF THE 
REM TIME-CONTROLLED 
REM SUBROUTINE 


Q@ 


1990 TIME 
2000 RETURN 


主 程序 子 程序 


图 3.13 使 用 时 间 控 制 子 程序 的 程序 的 典型 结构 和 执行 顺序 
3.14 控制 ( CNTL ) 键 的 功能 


若 在 按 下 控制 ( CNTL ) 键 时 按 某 个 键 ， 计 算 机 会 做 某 些 动作 ' 但 
屏 上 并 不 显示 字符 。 


CNTE 

正如 2.1 节 所 说 ， 如 果 在 按 住 CNTL 键 时 按键 C ( 这 个 操作 简 记 为 
“CNTL C”) 再 按 C R 键 ， 计 算 机 将 不 理 皮 正 在 打 的 行 ， 同 时 光标 则 跳 
到 下 一 行 的 最 左边 位 置 ,CNTL C 使 得 用 户 能 锡 命 分 计算 机 不 理 肯 部 分 
打 过 的 语句 。 

CNTE 丽 

CNTL R 命 今 计算 机 将 最 后 一 个 语句 重新 在 屏 上 显示 当 要 打 入 的 


新 语句 与 最 后 语句 有 些 不 同时 这 个 命令 就 特别 有 用 ， 这 时 可 用 D 刁 工 键 
和 重 打 的 办 法 来 修改 最 后 语句 ， 然 后 按 C R 键 将 新 语句 返 进 计算 机 。 
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移动 光标 ( CNTL,LK,M,J) 


当 按 住 CNTL 键 时 按键 LK,M 和 J 就 可 移动 光标 的 位 置 如 下 : 


I : 光标 移 上 一 行 ( 个) 
M : 光标 移 下 一 行 ( | ) 
K : 光标 往 右 移 一列 (一 ) 
J : 光标 往 右 移 一 列 ( 二 ) 


注意 ， 当 直 抄 从 键盘 上 执行 的 ， 移 动 总 数 不 能 超过 95。 


在 程序 中 用 PRINT CHR$(128) 来 使 光标 往 上 移 
在 程序 中 用 PRINT CHR$(130) 来 使 光标 往 下 移 
在 程序 中 用 PRINT CHR $(129) 来 使 光标 往 右 移 
在 程序 中 用 PRINT CHR$(131) 来 使 光标 往 左 移 


3.:15 程序 的 实时 控制 - 使 用 KEY 的 操纵 杆 
KEY 
这 个 范 数 是 给 出 被 按 的 键 的 ASCII 代 码 ， 其 用 法 可 用 下 列 说 明 


IF KEY=65 THEN GOTO 30 
GOTO 10 


PRINT “KEY A PRESSED” 
匡 ND 


当 遇 到 酚 数 KEY 时 ， 就 检查 键盘 ， 将 所 按 的 键 转换 成 其 ASCII 代 码 
， 如 果 它 等 于 65 ( 那 是 键 A 的 ASCII 十 进 代 码 ) ， 则 打印 出 信息 “KEY 
A PRESSED" 同 时 程序 终了 ， 如 果 按 下 的 不 是 键 A， 则 程序 进入 循环 
， 反复 检查 键盘 。 


上 述 程 序 说 明 使 用 画 数 KEY 的 典型 情况 ' 它 常常 用 在 循环 中 的 ”IF 


语句 ”里 面 ， 使 得 机 器 反复 扫描 键盘 ， 如 果 某 指定 键 被 按 下 时 就 做 某 次 
动作 ,这样 就 可 以 通过 按 下 指定 键 来 控制 程序 的 流向 。 
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操纵 杆 


机 上 的 操纵 杆 是 用 来 控制 4 个 键 的 ， 按 照 操纵 杆 所 按 的 方向 ， 将 4 
个 代码 中 的 一 个 输入 计算 机 ， 这 4 个 代码 就 是 ASCII 十 进 代码 136， 
137,138 和 139， 分 别 对 应 于 操纵 杆 向 上 ， 向 右 ， 向 下 和 向 左 的 位 置 ， 如 
果 话 名 “IF KEY 王 136 THEN.…… ”出 现在 循环 的 某 个 地 方 ， 那 么 只 
要 操纵 杆 被 氢 到 向 上 位 置 ( 它 的 ASCII 十 进 代码 是 136 ) ,IF 话 句 的 条 
件 就 是 被 定 ， 这 样 就 可 用 操纵 杆 来 控制 程序 的 流向 。 


试 : 


IF KEY= 三 136 THEN GOTO 30 
GOTO 10 


PRINT “JOYSTICK IS ACTIVATED” 
匡 ND 


当 操纵 杆 被 拨 到 向 上 的 位 置 时 ， 程 序 就 打印 出 信息 。 
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第 四 章 
计算 机 基本 概念 


第 四 重 ”计算 机 基本 概念 
4'1 计算 机 是 什么 ? 
计算 机 是 能 锡 接 受 、 处 理 和 输出 信息 的 设备 ， 信 息 是 以 电子 信号 的 
形式 ， 它 代表 字母 式 数字 数据 ( 即 是 文件 ， 字 和 数 ) 处 理 包括 数学 的 和 
逻辑 的 运算 ， 分 类 ， 检 索 和 重新 排列 ， 输 出 ”处理 过 的 ”信息 主要 有 三 种 
应 用 ，(a ) 数 据 处 理 〈 包括 丙 业 和 会 计 应 用 ， 档 案 保 在， 情报 检索 ， 管 
理 信息 系统 以 便 更 容易 作出 决断 ) (b ) 科学 计算 和 工程 设计 ，(c ) 工 业 


控制 ， 通 过 拾取 输入 信息 ， 再 用 感应 器 或 换 能 器 转变 为 电信 号 ， 并 以 指 
定 的 方式 进行 处 理 ， 然 后 用 输出 信号 指挥 各 种 电气 的 或 机 械 的 设备 动作 。 


原文 件 报告 


CD CD 


图 4'1 做 为 信息 处 理 机 的 计算 机 
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4:2 计算 机 的 主要 部 件 


解答 问题 可 以 用 计算 机 ， 也 可 以 由 配备 有 计算 器 ， 笔 和 纸 的 计算 员 ， 
:比较 一 下 这 两 种 性 况 下 是 如 何 做 的 以 便 鉴 别 计算 机 的 各 个 子 系统 显然 


是 有 丛 的 ， 表 4.2 就 是 这 种 比较 : 


表 4.2 由 计算 员 和 用 计算 机 解答 问题 一 一 其 必需 品 的 比较 


计算 员 
1. 问 题 清 单一 一 用 于 准 细 记 录 问 题 。 
2. 算法 : 一 一 规定 解答 问题 过 程 的 一 系列 步 又 。 


3. 数 据 ， 按 上 述 算法 对 它 进行 处 理 从 而 得 出 所 需 的 
答案 。 


4 计算 器 "一 一 实现 基本 运算 。 
5. 计 算 员 一 一 控制 算法 的 执行 。 
6. 笔 和 纸 一 一 用 于 记录 中 间 结 果 。 
7. 用 于 记录 最 后 结果 的 结果 清单 。 
8. 参政 书库 。 


表 4.2 说 明 ， 计 算 机 的 组 成 是 : 


计算 机 
输入 设备 
程序 存 崇 器 


数据 存 崇 器 


算术 或 逻辑 单元 
控制 单元 

和 暂 赃 右 

输出 设备 


海量 存 凡 器 


(a ) 用 于 做 算术 或 逻辑 运算 的 子 系统 和 用 于 控制 每 一 步 的 顺序 的 子 
系统 ， 前 者 称 为 算术 一 一 逻辑 单元 即 ALU 后 者 称 为 控制 单元 ， 在 计算 
机 中 ， 这 两 个 子 系统 常常 组 合 在 一 起 构成 所 谓 中 央 处 理 单 元 即 CPU、 


CPU 就 好 像 是 配备 有 计算 器 设计 算 员 。 
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(b ) 用 于 存 凡 程 序 ， 输 入 数据 和 中 间 结 果 的 设备 ， 在 计算 机 中 ， 这 
些 都 存 邮 在 主 存 赃 器 中 ， 主 存 崇 器 就 好 像 计算 员 使 用 的 纸 和 笔 。 


(e ) 用 于 计算 机 与 外 齐 通信 联络 的 输入 输出 设备 ， 使 计算 机 能 接受 
问题 的 陈述 ， 有 关 的 数据 ( 例如 从 键盘 输入 ) 和 输出 结果 ，《〈 例如 通过 
电视 屏幕 ) 


(d ) 用 于 存 崇 许 许 多 多 不 太 常 用 的 信息 的 设备 ， 这 样 的 海量 存 邮 设 
备 ( 例如 软磁盘 或 磁带 ) 其 存 取 速 度 不 及 主 存 赃 吉 ， 但 是 能 锡 存 赃 大 量 
的 信息 ， 它 就 像 计算 员 时 不 时 要 查询 的 参考 书库 。 


所 以 ， 计 算 机 主要 的 系统 是 : C PU、 主 存 赃 器 、 输 入 输出 设备 和 
海量 存 凡 右 。 


海量 存 邮 器 
( 如 磁带 ) 


输出 设备 
( 如 显示 屏 ) 


图 4.2 计算 机 主要 的 子 系统 
4:3 计算 机 软件 


所 请 软 件 ， 我 们 理解 为 程序 或 能 告诉 计算 机 为 何 实现 不 同 任务 的 一 
步 步 过 程 ， 软 件 主要 有 三 类 : 


(a ) 应 用 软件 : 用 于 解决 某 些 科学 或 数据 处 理 的 问题 ， 例 如 做 一 般 
总 帐 、 仓 库 管 理 、 或 用 于 建筑 的 结构 设计 ， 这 些 由 用 户 提 供 (或 编写 ) 。 
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(b ) 系 统 软件 ， 它 使 用 户 更 便于 操作 计算 机 ， 例 如 能 实现 各 种 任务 
， 像 使 用 户 能 将 程序 存 入 磁带 或 反 过 来 回 输 给 存 崇 器 的 程序 。 


(ce ) 语 言 编译 或 解释 程序 ， 它 使 用 户 能 用 近似 于 普通 语言 的 语言 来 
编写 应 用 程序 ， 在 计算 机 中 ， 程 序 和 数据 是 用 许多 只 有 0 和 1 两 种 ” 状 
态 ”的 部 件 ，( 就 像 开 关 ， 不 是 开 就 是 关 ， 来 表示 的 ， 计 算 机 能 直接 识 
别 这 些 ”0 一 1 "模式 。 然 而 ， 对 用 户 来 说 ， 仅 用 0 和 1 来 写 程序 是 极其 
困难 的 ， 什 至 几乎 是 不 可 能 的 ， 而 且 写 出 来 的 程序 也 不 容易 认 读 ， 可 以 
采用 一 种 类 似 于 普通 语言 的 语言 ， 如 BASIC 来 描述 问题 的 解答 过 程 ， 
然后 交 由 计算 机 执行 之 前 ， 将 其 转换 成 ”0 一 1”( 或 : 进行 ) 模式 。 这 
样 的 转换 就 由 称 为 "编译 程序 "或 “解释 程序 "的 软件 来 完成 ， 编 译 是 将 用 
方 级 语言 编写 的 程序 整个 地 译 成 机 器 语言 程序 ， 然 后 再 执行 、 解 释 是 对 
原 程序 的 语句 转译 茧 执行 。 
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第 五 重 
COMX -3235 BASIC 
参 玖 指南 


第 五 量 COMX 一 35 BASIC 参考 指南 


本 和 章 可 作为 参考 手册 使 用 ， 它 全 面 介 绍 了 COMX 一 35 BASIC 语 言 
' 不 熟悉 BASIC 和 第 一 次 阅读 本 和 章 的 用 户 可 能 发 觉 它 枯燥 无 味 难以 读 
下 去 ' 但 随 着 你 更 加 熟悉 BASIC 之 后 ， 就 会 发 现 这 一 章 是 知识 的 不 可 
估量 的 源泉 。 


5'1 程序 、 语 句 、 表 达 式 和 画 数 


程序 是 计算 机 能 执行 的 语句 的 集合 ， 这 些 语句 告诉 计算 机 如 何 解答 
问题 ， 它 将 整个 方法 具体 表示 成 称 为 "算法 "的 一 步 了 ， 过 程 的 形式 和 做 
为 算法 运算 对 象 的 数据 。 


语句 ，( 用 引号 开头 ) 由 BASIC 键 词 (如 END，NEXT ) 表达 式 
和 本 数 组 成 。 


画 数 是 给 出 数值 的 BASIC 键 词 ， 例 如 LOG(X )，SIN(X ) 等 在 
5 .4 节 中 给 出 一 个 画 数 表 ， 据 钼 内 的 量 称 为 画 数 的 自 变 量 。 此 键 词 是 规 
定 某 个 规则 ， 据 此 可 将 自 变 量 转 换 成 某 个 值 ， 后 者 称 为 西数 值 。 


表达 式 是 算术 表达 式 的 简称 ， 它 可 以 是 单个 数 、 单 个 变量 ， 画 数 或 
由 算术 算 符 连 接 起 来 的 一 群 操作 数 ( 数 、 变 量 和 西数 等 ) 例如 : 8、5 
\、A、3 水 Sin(45)0.5 3 半 (2+A)XB+C) 
5.2 数 和 变量 

COMX -- 35 上 讼 处 理 整数 也 处 理 译 点 数 ， 两 种 数 都 以 32 位 2 进 制 的 
有 符号 数 的 形式 存 凡 ， 译 点 数 的 数值 茫 围 是 从 一 0.170141X1039 到 十 
0.170141X1039， 尾 数 的 小 数 部 分 精确 到 6 位 数字 。 


整数 的 范围 是 从 一 2147483647 到 十 2147483674 在 这 范围 内 都 是 精确 
数 。 


从 键盘 输入 的 数 都 以 所 输入 的 形式 存 崇 起 来 ， 如 果 输 入 时 疫 有 小 数 
点 ， 则 做 为 整数 储存 ， 如 果 是 带 小 数 点 或 有 ” 刁 "记号 ， 则 做 为 郊 点 储存 。 
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5.3 算 符 
COMX -- 35 的 算 符 可 分 成 五 类 : 算术、 赋值、 比较、 逻辑 和 其 他 。 
算术 算 符 


下 表 给 出 算术 算 符 的 符号 和 它 在 数学 表达 式 中 运算 的 优先 顺序 : 


一 元 减 : 一 第 一 优先 级 
指 数 : 人 第 一 优先 级 
乘 : 半 第 二 优先 级 
除 人 第 二 优先 级 
加 : 十 第 三 优先 级 
减 : 一 第 三 优先 级 


同一 优先 级 的 算 符 按 从 左 列 到 右 的 顺序 运算 ， 符 号 "一 "也 用 来 记 负数 ， 
下 面 是 一 些 说 明 优先 级 的 练习 。 


4 米 31 人 2=36( 先 做 3 人 2， 再 做 4 冰 (31 人 2)) 
4/2 洲 3 一 6 
4 十 2 沙 3 一 5 一 5 


赋值 算 符 


赋值 符号 就 是 等 号 “一 "将 这 个 符号 用 于 赋值 时 ， 其 意义 是 ” 取 什么 
为 值 ”而 不 是 “等 于 ”。 


例如 : LET A=5 
LET B=B 二 +A 2 


键 词 LET 可 任意 省 略 ， 第 二 个 例子 可 解释 为 : 计算 B 十 A 2 的 值 芍 将 
结果 进 给 B。 
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POKE ( 表达 式 1 、 表 达 式 2 ) 


这 个 语句 使 用 时 应 特别 廊 惯 ， 本 语句 是 用 来 将 某 个 数据 写 进 存 崇 器 
的 某 个 位 置 。 存 崇 器 的 位 冒 由 表达 式 1 所 指定 ， 而 数据 由 表达 式 2 决定 
,例如 POKE ( 5000,255 ) 就 是 将 255 的 十 六 进 数 ( 下 F ) 放 到 十 进 制 
地 址 5000 的 存 赃 单 之 中 ， 通 常 更 稳 安 的 办 法 是 直接 写 为 POK 巨 ( 男 1F23， 
# 下 FEF ) 它 将 十 六 进 数 FE 放 到 十 六 进 地 址 1F23 的 地 方 。 


关系 算 符 
关系 算 符 包括 : 


等 于 :一 
不 等 于 去 > 

大 于 人 

放 & “和 浅 人 过 

大 于 或 等 于 : > 二 
小 于 或 等 于 : < 三 


包含 关系 算 符 的 表达 式 ， 其 计算 的 结果 是 时 或 假 ， 而 不 是 数值 ， 例 
如 : 


IF A=3 十 B>2 THEN 
IFA<>4THEN 
IF A# 2<=B 一 4 THEN 


逻辑 算 符 


逻辑 算 符 是 AND, OR,XOR NOT 。 应 该 注 则 ， 在 做 指定 运算 之 前 
,， 逻辑 算 符 将 表达 式 转换 成 整数 ,另外 ,在 N OT 算 符 后 面 的 表达 式 必 
须 放 在 括号 内 。 逻 辑 算 符 与 + 和 一 属 同一 优先 级 ， 例 如 : 


IF(AANDB)<>CTHEN 

FOR I=(AANDB)TO(AORB)STEPA/B 
PR(AXORBI) 

GOTO NOT (A) 
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头 三 个 例子 中 ， 为 清楚 起 见 都 加 了 括号 ， 其 实 都 可 省 略 。 
其 他 算 符 


其 他 算 符 罗列 如 下 : 
: “分 隔 同 一 行 中 的 语句 
; PRINT 的 定 界 符 
， PRINT 的 定 界 符 
” 字符 串 的 定 界 符 
( ”组 限界 
) “组 限界 
.\ 8 位 二 进 制 值 
# 8 位 十 六 进 制 值 
田 。16 位 十 六 进 制 值 
下 面 是 一 些 例子 : 
PRINT A,B :“YES”: GOTO 10 
LET A=(3 十 4)7/2 
LET B 一 #F8 :C 一 四 01F3 


IF A<>>\10011010\THEN GOTO 100 


注 晶 1， 在 PRINT 语句 中 使 用 ; 时 ， 打 印 出 来 的 下 一 项 紧 接 在 前 
一 项 后 面 ， 中 间 不 留任 何 空位 。 


注意 2 ' 在 PRINT 语句 中 使 用 , 时， 打印 出 来 的 下 一 项 是 位 于 下 
一 个 打印 区 的 开头 位 置 ， 一 个 打印 区 的 宽 放 是 8 个 字符 。 


注意 3， 使 用 ”是 指 字符 串 的 界限 ， 因 此 不 能 作为 字符 串 内 的 符号 
使 用 。 
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5.4 数学 画 数 


在 第 一 小 段 给 出 专门 夯 数 的 字义 ， 数 学 函数 的 自 变量 可 以 是 数 ， 变 
量 或 表达 式 ， 本 数 可 分 成 (i) 内 邵 画 数 和 (ii) 导 出 画 数 ,所 谓 导出 画 数 是 
可 以 由 内 部 画 数 的 表达 式 得 到 的 画 数 ,例如 SIN(X) 和 COS(X) 是 内 邵 
画 数 ,而 TAN(X) 是 导出 画 数 ,因为 TAN(X) 可 由 SIN(X)/COS(X) 
计算 。 


COMX 一 35 的 预 冒 状态 是 假定 用 引 和 度 来 表示 角 ， 下 面 的 例子 都 假 
定 是 这 种 状态 ， 若 要 改变 成 角度 ， 可 打 DEG 接 着 再 按 CR 键 ， 要 再 转 回 
改 弧 度 ， 就 打 RAD 再 按 CR 键 。 


5.4'1 内 部 西数 


内 部 画 数 包括 ABS，ATN ,COS，EXP，FNUM，INT，INUM， 
LOG, MOD, PI, RNR, SGN，SIN, 和 SQR 。 


ABS ( 表达 式 ) 

这 个 函数 给 出 此 表达 式 的 绝对 值 
例如 PR ABS( 一 10# 2 ) 
将 打印 出 20 


ATN (表达 式 ) 


这 个 函数 与 ARCTAN ( 表达 式 ) 同样 晶 思 ， 即 给 出 一 个 其 正切 等 
于 此 表达 式 的 值 的 角 ( 通常 用 距 度 表示 ) 这 个 画 数 是 浮 点 画 数 。 


例如 PR ATN(1) 
将 打印 出 0.7854 
因为 TAN(0.7854)=TAN PI/4=TAN45" = 1 


COS(〈 表 达 式 ) 


这 个 函数 给 出 由 表达 式 的 值 规定 的 角 ( 通常 用 距 度 表示 ) 的 余弦 ， 
本 画 数 是 秀 点 画 数 。 
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例如 PR COS(PIZ3) 

将 打印 出 ”0.5 

因为 COS 60" 一 0.5 
EXP ( 表达 式 ) 


这 个 画 数 给 出 2. 71828 ( e ) 的 乘 需 的 序 点 数 ， 其 指数 等 于 此 表达 式 
的 值 。 


例如 PR EXP(6/3) 
将 打印 出 “7.3891 
因为 e 6/3=ez 一 2.718282z 一 7.3891 


FENUM ( 表达 式 ) 


这 个 画 数 将 表达 式 舍 人 到 最 接近 的 整数 应 将 它 转 为 序 点 方式 ， 它 与 
INUM 刚 好 是 相对 。 


例如 PR _FNUM (RND(6 ) ) 
将 打印 出 泽 点 值 


INT (表达 式 ) 

这 个 本 数 将 浮 点 表达 式 的 小 数 恤 分 分 刨 去 而 给 出 其 整数 部 分 ， 其 结 
果 仍 旧 是 涯 点 方式 ， 不 要 将 这 个 画 数 与 ( 下 面 要 说 明 的 ) 画 数 INUM 相 
混 消 。 


例如 A=7.9: B=INTIA): PRA,B 
将 打印 出 7.9 7 


INUM (表达 式 ) 


这 个 函数 将 将 点 表达 式 转换 为 整 型 ， 取 其 最 接近 的 整数 ， 它 提供 一 
种 把 特定 画 数 变 为 整 型 的 方法 ， 
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例如 PR SQR(62.41) 结果 是 7.9 
而 PR _ INUM(SQR(62.41)) 结果 是 8 


LOG ( 表达 式 ) 

这 个 函数 给 出 表达 式 的 值 的 自然 对 数值 的 译 点 数 。 
例如 PR LOG(10) 
将 打印 出 ”2.3026 
而 PR LOG(EXP( 2 )) 将 得 到 2 

MOD ( 表达 式 1 ， 表 达 式 ) 

这 个 画 数 (Modulo) 等 价 于 下 式 的 值 : 


表达 式 1 一 ( 表达 式 1/ 表 达 式 2 ) # ( 表达 式 2 ) 其 中 每 个 表达 式 
都 要 先 化 为 整 型 ， 这 个 画 数 给 出 一 个 整 型 值 ， 


例如 PR MOD(10,3) 
其 结果 为 1 


PEI 
这 个 画 数 给 出 数值 3. 14159 

RND 

这 个 函数 给 出 一 个 大 于 等 于 0 ， 小 于 等 于 1 的 随机 浑 点 数 

RND ( 表达 式 ) 

这 个 画 数 给 出 一 个 大 于 等 于 0 ， 小 于 表达 式 的 值 的 随机 整数 。 

如 果 要 将 所 产生 的 随机 整数 赋 给 一 个 变量 ， 那 么 此 变量 必须 先 规定 


( 为 整数 值 型 的 ( 例如 : DEFINT A ) 
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SGN ( 表达 式 ) 

这 个 画 数 将 根据 表达 式 的 符号 分 别 取 值 十 1，0 或 一 1。 如 果 表 达 式 为 
正 ， 则 画 数 给 出 + 1 ， 如 果 表 达 式 的 值 为 0， 则 画 数 给 出 0 值 ， 如 果 表 
达 式 为 负 ， 则 画 数 给 出 一 1。 


SIN ( 表达 式 ) 


这 个 画 数 给 出 由 表达 式 的 值 所 给 定 的 角 ( 通常 用 弧度 表示 ) 的 正弦 
' 这 个 画 数 是 笃 点 画 数 ， 


例如 PR _ SIN (Pl1/6 ) 
将 打印 出 0.5 ， 


SQR ( 表达 式 ) 
这 个 画 数 给 出 表达 式 的 值 的 平方 根 ， 本 画 数 也 是 泽 点 画 数 ， 


例如 PR SQR(65) 
将 打印 出 8. 0623 


5.4'2 关于 数学 画 数 的 一 些 例子 


下 面 一 些 例子 可 说 明 COMX 一 35 BASIC 数 学 画 数 的 功能 ， 画 数 的 
自 变 量 本 身 可 以 是 画 数 或 表达 式 , 这 样 就 能 够 表达 相当 复杂 的 数学 式 子 ， 


PR SIN (45 ) 

A=INT(10#*SQR(LOG(A#kB))) 

C=EXP (10+A) 

PR ATN (Akk SINC(A) ) 

5.4.3 导出 西数 

下 列 画 数 不 属 COMX 一 35 BASIC 的 内 寻 画 数 ， 但 可 由 5.4:1 即 所 
列 的 内 导 函 数 用 下 列 公 式 计 算 ， 
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TAN(X)=SIN(X)VXCOS(X) 

ARC SIN(X)=ATN(X/SQR(1 一 X 冰 X) ) 

ARC COS(X)= 一 ATN(X/SQR(1 一 X 灶 X) ) 十 1.5708 

ARC SEC(X)=ATN(SQR(X#X 一 ) 二 (SGN(X) 一 1) 沙 1.5708 

ARC COSC(X)=ATN(1/SQR(X 冰 X 一 1) 十 (SGN(X) 一 1 ) 
洲 1.5708 

ARC COT(X)= 三 一 ATN(X) 十 1.5708 

ARC SINH(X)=LOG(X 二 SQR(CX 水 X 二 1)) 

ARC COSH(X)=LOG(X+SQR(X 水 X 一 1 ) ) 

ARC TANH(X)=LOG((1 十 X)VX(1 一 X) )/2 

ARC SECH(X)=LOG((SQR(1 一 X 米 X) 十 1)/X) 

ARC CSCH(X)=LOG((SGN(X)#SQR(X 沙 X+l)+l)1X) 

ARC COTH(X)=LOG((X+1)/(X 一 1) )/2 

COT(X )=1V/TAN(X) 

CSC(X)=1/SIN(X) 

SEC(X)=1/COS(X) 

COSH(X)= 王 (EXP(X) 十 EXP(- 尺 ) )/2 

COTH(X)=EXP( -X)/(EXP(X) 一 EXP( 一 X)) 冰 2 十 1 

CSCH(X)=2/(EXP(X) 一 EXP( 一 X) ) 

SECH(X) 王 2/(EXP(X) 十 EXP( 一 X)) 

SINH(X)=(EXP(X) 一 EXP( 一 X) )/2 

TANH(X)= 一 EXP( 一 X)/(EXP(X) 十 EXP( 一 X)) 沙 2 十 1 


5.5 字符 串 和 衬 符 串 欧 烙 
字符 串 即 字 符 ( 可 打印 的 字符 或 不 可 打印 的 字符 ) 序列 ， 字 符 串 中 
可 以 包含 空格 ， 但 不 能 包含 引号 ”， 因 为 引号 是 作为 字符 串 的 分 界 号 ， 
即 用 来 表示 字符 串 的 开始 和 结尾 ， 对 COMX 一 35 BASIC， 每 一 字符 串 
可 最 多 包含 127 个 字符 。 
作为 非 数 值 数 据 的 字符 串 可 用 作 标 识 、 信 息 等 ， 巧 妙 地 处 理 数 值 的 
机 能 力 使 计算 机 能 做 科学 计算 ， 同 样 地 ， 蕊 妙 地 处 理 字 符 串 的 能 力 使 计算 
算 机 能 做 字 处 理 ， 档 案 保 存 和 情报 检索 。 


处 理 字符 串 的 函数 有 : ASC, CHR$ FVAL,LEN 和 MID$。 


73 


ASC ( 字符 串 表达 式 ) 


这 个 函数 给 出 该 字符 串 的 第 一 个 字符 的 十 进 的 ASCII 值 ， 该 值 是 以 
浮 点 形式 给 出 的 ， 如 果 接 在 整 型 西数 后 面 就 变 为 整 型 的 。 


例如 A$(5)=“"ARITHMETIC” 
B=ASC(AS$(5)) 


变量 B 的 值 是 65， 即 是 字母 A 的 十 进 的 ASCII 值 ， 
又 如 另 一 个 例子 
5 AS$= TEST” 
10 FOR A=l1 TO LEN(AS) 


20 PR ASC(MID$(A$,A)) 
30 NEXT A 


CHR$ (表达 式 ， 表 达 式 ，… ) 

相应 于 括号 内 的 每 一 个 表达 式 ， 这 个 画 数 给 出 一 个 字符 ， 因 此 ， 
CHR $ 的 作用 与 ASC 正好 相反 ， 它 先 计 算 每 个 表达 式 的 值 并 输出 ASCII 
十 进 代 码 中 等 于 该 表达 式 的 值 的 那个 字符 。 


例如 PR CHRV$(65) 


将 给 出 
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因为 A 的 ASCII 十 进 代 码 是 65， 又 


PR CHRS$(#42) 


因为 B 的 ASCII 十 六 进 代码 是 42。 


PR CHR $(#41, 林 42, #43) 


ABC 


有 关 使 用 CHR $ 的 其 他 例子 可 参看 3 .12 节 附录 A.2 给 出 所 有 内 导 字 
符 的 ASCII 代 码 。 


FVAL ( 字符 串 表 达 式 ) 


这 个 画 数 的 COMX 一 35 所 特有 ， 它 将 字符 串 表 达 式 当 作 算 术 表 达 
式 一 样 进行 计算 六 给 出 其 值 用 户 就 可 以 这 种 方式 制造 数学 画 数 ， 下 面 是 
包含 FVAL 用 法 的 三 个 例子 


10 A$ 一 "8 十 4” 

20 PR FVALIAS$) 

30 PR FVALI(AV$ 十“/2”) 
40 PR FVAL(“SQR( 3 )”) 
RUN ( 执行 程序 ) 

12 ( 计算 并 打印 A$) 

10 ( 计算 并 打印 (“8+4/2”)) 
1.73205 (计算 并 打印 SQR( 3 ) ) 
READY 

: @@ 
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规定 字符 串 不 能 超过 48 个 字符 ， 如 果 超 过 此 长 度 ， 会 冻结 掉 有 用 的 数据 
范围 


LEN (字符 串 变 量 ) 

这 个 画 数 给 出 所 指定 的 字符 串 中 字符 的 个 数 ， 它 取 为 浮 点 值 ， 除 非 
是 接 在 整数 式 整 型 本 数 的 后 面 ， 这 时 它 会 自动 转 为 整 型 数 ， 下 面 是 一 个 
例子 ， 


A$= "ARITHMETIC” 


PR LEN(AV$ ) 

给 出 

10 (A$ 的 长 度 ) 
又 


PR3:# LEN(AV$) 


30 
注 则 ， 字 符 串 必须 预先 有 定义 。 
MID $ ( 字符 串 变 量 ， 表 达 式 1 ) 
MID $ ( 字符 串 变量 ， 表 达 式 1 ， 表 达 式 2 ) 
这 个 画 数 是 一 个 字符 串 画 数 ， 执 行 时 ， 它 取出 所 指定 的 字符 串 的 一 
部 分 ， 头 一 次 ， 即 表达 式 1 规定 从 左 算 起 第 几 个 字符 作为 子 字符 串 的 开 


头 ， 表 达 式 2 规定 子 字符 串 中 字符 的 个 数 ， 如 果 没 有 表达 式 2， 则 所 有 
剩 下 的 字符 全 取 。 
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下 面 是 一 个 例 字 


A 和 $= “YES” 
B$=MID$CA 和 ,2,1) 


那么 B $ 将 包含 字母 下” 


A$(10) 一 EXPERIMENT” 
PR MID$(A$(10),7,3) 


将 打印 出 

10 INPUT ASV$(1) 

20 IF MID$(A$(1),1,1)=“ Y" GOTO 100 
30 GOTO 10 

100 “END 


上 例 要 一 直 等 到 有 某 个 以 字母 "Y "为 开头 的 词 输入 时 才 跳 转 到 100 行 


在 其 他 BASIC 版 本 中 通用 的 一 些 范 数 如 LEFT$ 和 RIGHTS$ 都 
能 用 MID $ 函数 以 下 述 方 法 来 实现 : 


MID (A$,1,N) 
就 与 LEFT$(CAV$,N) 的 作用 相同 ， 而 

MID$(A$,(LEN(A$)-N+1),LEN(A 和 )) 

RIGHT$(AV$,N) 的 作用 相同 

字符 串 的 联 按 

所 谓 联 接 是 将 两 个 或 多 个 字符 串 加 在 一 起 ， 比 如 ”HELLO ”和 “ 
JANE ” 相 加 就 得 到 另 一 字符 串 “HELLOJAN 正 ”， 做 联接 时 ， 使 用 十 
(加 ) 号 瘟 用 字符 串 或 字符 串 变 量 构成 赋值 语句 。 
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关于 字符 串 的 联接 的 唯一 限制 是 : 由 两 个 或 多 个 字符 串 相 加 生成 的 
字符 串 不 要 超过 127 个 字符 。 


例如 : 


10 A$=" NEVER7” 

20 B 和 $= THE” 

30 LEF AS(5)E= ESS” 

40 LET B$(1)=AS$+B$+AV$(5) 
50 PRINT B$(1) 


40 行 的 结果 是 产生 一 新 的 字符 串 B $( 1 )， 它 是 将 前 面 三 个 字符 串 
串 接 起 来 ， 在 50 行 就 打印 出 “NEVERTHELESS”。 


输入 字符 串 ， 在 IF 语句 中 使 用 字符 串 
考虑 下 面 的 例子 : 


10 _ INPUT B$ 

20 AV$(1)=“ CONTINUE” 

30 AV$(2)= ”PHASE 1” 

40 A$(3)=“ PHASE 2” 

50 IFB$4=A$(1)+AS$(C2) GOTO 100 
60 IFBS$=A$(1)+AS$(3) GOTO 200 
70 GOTO 10 


上 面 的 程序 将 停 在 10 行 处 等 待 输入 一 字符 串 ， 该 字符 串 就 存 赃 在 
B $ 中 ， 然 后 将 它 与 A$(1 )+AS$(2) 和 AS$(1)+AV$(3) 比 较 ， 按 
照相 同 与 否 ， 程 序 转 到 相应 的 地 方 执行 。 


5.6 数组 

若干 次 的 集合 ， 所 有 的 项 都 带 有 同样 的 组 名 ， 但 每 一 次 又 由 一 数 ( 
或 一 组 数 ) 所 指定 ， 则 称 其 为 数组 ， 例 如 ai,az，… an=A[l:n] 是 
大 小 如 nm 的 一 维 数组 ( 表 或 向 量 ) ， 数 组 中 每 一 之 素 ， 为 ai 由 数 i 所 指 
定 ， 它 表示 数组 中 从 第 一 个 之 素 算 起 该 之 素 的 位 置 。 
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all,8a12 ”aln 


2 


ALl:m, 1l1:nj 三 


a ml, a m2，”” 8a mn 


是 二 维 数组 〈 或 表 ) ， 其 中 每 个 元 素 有 行 值 i 和 列 值 j ， 二 者 就 规 
定 了 该 元 素 在 数组 中 的 位 置 。 


COMX -- 35 可 安 填 26 个 数组 [从 A ( 表达 式 ) 到 Z ( 表达 式 ) ] 和 
26 个 字符 串 或 字符 串 数 组 A $ 到 Z$ 和 [AS$ (表达 式 ) 到 Z $ (表达 
式 ) ] ， 这 26 个 数值 数组 可 以 是 一 维 或 二 维 数组 、 数 组 中 每 一 维 的 最 大 
长 度 是 255、 最 小 长 度 是 1 ， 能 容纳 的 最 大 数组 是 G ( 255，255 ) ， 最 
小 是 G( 1 )， 数 组 元 素 的 最 多 个 数 受 可 使 用 的 RAM 的 数量 的 限制 ,使 用 
数组 首先 必须 用 DIM 语句 定义 ， 这 将 在 5:9 节 说 明 。 


可 以 用 几 种 方式 来 清除 数组 空间 : RUN,NEW 和 CLD， 这 些 将 放 
在 关于 这 些 语句 的 解释 之 后 再 来 讨论 ， 它 对 于 知道 每 个 数组 究竟 使 用 多 
少 存 崇 单元 是 有 好 处 的 ， 数 组 中 每 个 元 素 是 4 个 字 节 长 ， 而 且 每 个 数组 
有 一 个 5 个 字 节 的 信息 头 ， 因 此 ， 由 DIM A (10，10 ) 定义 的 数组 包 
含 100 个 元 素 ( 10X10 ) ， 它 名 字 为 A， 其 405 个 字 节 ， 类 似 地 ， 用 
DIM B (20 ) 定义 的 数组 B 包含 20 个 元 素 , 80 个 字 节 ， 加 上 信息 头 总 共 
85 个 字 节 ， 后 面 会 讲 到 EOD 话 句 , 它 能 告诉 我 们 如 何 找 出 还 有 多 少数 据 
空间 可 用 。 


COMX -- 35 也 提供 处 理 字符 串 的 能 力 ， 可 有 26 个 字符 串 变 量 ( 从 
A$ 到 Z $ ) 每 个 字符 串 最 多 可 包含 127 个 字符 ， 另 外 还 包含 字符 串 数 
组 ， 它 使 得 程序 员 可 用 一 些 数 自 变 量 作 为 字符 串 数组 的 下 标 ， 因 此 可 以 
用 A$ (N ) 来 表示 字符 串 ， 其 中 N 是 表达 式 〈 或 数 ) ， 最 大 值 是 255 
， 如 果 所 用 的 数 大 于 255， 会 出 现 错误 的 结果 。 


79 


没有 自 变量 的 字符 串 就 假定 它 的 自 变 量 是 0 ， 
例如 : AV$ 就 等 价 于 AS$(0 ) 


还 有 一 点 很 重要 的 是 ， 对 字符 串 不 需要 任何 大 小 规定 ， 每 产生 一 个 
字符 串 ， 存 赃 器 就 自动 分 配 一 次 ， 还 要 注意 ， 产 生 了 字符 串 C $(10) 蔓 
不 晶 味 着 存在 C $( 1 ) 到 C $( 9 )， 反 是 C $(10) 存 在 ， 而 企图 读 C $ 
(1 )， 其 结果 得 到 错误 信息 ， 此 说 明 C $( 1 ) 还 未 产生 。 


5 .7 控制 程序 流向 的 指 分 


这 些 指 今 统 称 为 控制 语句 ， 它 们 实现 条 件 转移 和 无 条 件 转移 ， 控 制 
语句 包括 END，EXIP, FOR，GOSUB，GOTO, IF，NEXT，RE- 
TURN 和 WAIT。 


上 END 

这 个 语句 〈 程序 的 结尾 ) 用 作 停 机 或 结尾 ' 它 终止 程序 的 执行 蔓 让 
COMX 一 35 返回 到 直接 执行 方式 ， 在 COMX 一 35 BASIC 程 序 中 ， 
END 语 句 可 放 在 任何 位 置 和 使 用 任 巧 多 次 ,如 果 它 在 程序 中 已 经 是 最 后 
一 个 语句 ， 那 么 愿 琶 的话， 也 可 以 将 它 删 掉 。 


EXIT 表达 式 


这 个 语句 是 无 条 件 地 转移 到 表达 式 所 规定 行 号 ， 可 用 它 来 提早 跳出 
FORVNEXT 循 环 或 子 程序 ， 有 一 点 应 该 十 分 注意 的 ， 如 果子 程序 或 
FORVNEXT 循 环 是 嵌 套 的 ， 则 EXIT 语 句 所 规定 转移 控制 的 行 号 应 位 
于 下 一 层 嵌 套 之 内 ， 例 如 ， 如 果 FORVNEXT 循 环 有 四 层 相 套 ， 而 且 希 
刻 提 早 转 示 第 四 个 人 FOR/VNEXT 循 环 ， 则 COMX 一 35 BASIC 以 为 在 
EXIT 被 执行 之 后 是 在 第 三 个 FORVNEXT 循 环 内 的 某 个 地 方 ， 然 后 
下 XIT 又 可 取 第 二 个 人 FOR/VNEXT 循 环 中 的 某 个 行 号 ， 等 等 ， 这 个 语句 
可 用 来 代替 标准 的 GOTO 话 句 ， 茧 可 用 来 清除 由 FORVNEXT 或 子 程序 
调用 所 产生 的 所 有 变更 了 的 堆栈 指示 器 ， 例 子 如 下 : 
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10 了 FOR I=1 TO 10 

20 下 OR J=1 TO 5 

30  A=B 二 C 

40 IF A=15THEN 王 XIT 60 


50 NEXT J 
60 PR A 
70 ”NEEXT I 


FOR 变量 = 表达 式 1 TO ,表达 式 2 STEP， 表达 式 3。 


这 个 语句 先 赋 给 变量 以 表达 式 1 的 值 ， 然 后 程序 一 直 执行 到 N 也 XT 
语句 ， 这 时 变量 的 值 加 上 表达 式 3 的 数值 ， 该 数值 可 正 可 负 。 再 计算 
表达 式 2 一 变量 ) 的 值 艾 与 步 长 4 STEP ) 的 符号 相 比较 ， 我 们 约定 0 
算 正 号 ， 如 果 符 号 相同 ， 则 重新 从 FOR ,语句 后 面 的 第 一 个 语句 执行 并 
继续 过 循环 ， 在 循环 过 程 中 ,用 户 可 用 适当 的 方法 (例如 用 LET 语 句 ) 
来 修改 变量 名 的 值 ， 还 应 和 注意， 变量 名 的 型 式 就 是 计算 表达 式 1 ， 表 达 
式 2 和 表达 式 3 的 型 式 ， 如 果 省 去 STEP 表 达 式 3 ， 则 认为 其 步 长 是 1 
( 参 3:9 节 )。 


GOSUB 表达 式 


这 个 语句 ( 子 程序 调用 ) 与 GOTO 语 句 基 本 相同 ， 只 是 这 时 程序 记 
住 GOSUB 出现 的 地 方 ， 当 COMX 一 35 BASIC 光 到 RETURN 话 句 
时 ， 就 返回 到 紧 接 在 GOSUB 语 名 后 面 的 语句 去 执行 ， 用 这 种 方法 子 程 
序 可 多 层 套 用 ， 只 要 存 崇 器 尤 许 ( 随 着 GOSUB 套用 次 数 的 增加 ， 堆 栈 
也 增加 ) 下 面 是 使 用 GOSUB 话 句 的 例子 。 


5 A 王 2000 

10 GOSUB 1000: GOSUB 1000 

20 GOSUB A 

30 “ ND 

1000 PR “DONE 一 一 ” 

1010 RETURN 

2000 PR “FINISHED”: GOSUB 3000: GOTO 1010 
3000 PR“COMPLETE”: RETURN 
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本 例 最 后 打印 出 


DONE 一 一 
DONE 一 一 
FINISHED 
COMPLETE 


也 可 参考 3.10 节 
GOTO 表达 式 


这 个 语句 是 无 条 件 转移 ， 马 上 转移 到 表达 所 指定 的 行 号 去 执行 ， 如 
果实 际 不 存在 此 行 号 ， 则 给 出 错误 信息 ， 例 子 如 下 : 


10 GOTO 50 
10 GOTO A++B 
10 GOTO 100#〈(A--B ) 


IE 语句 


它 可 取 下 列 两 种 形式 : 

IF 对 照 字符 串 < 之 字符 串 表 达 式 THEN 语句 

IF 表达 式 〈 关系 运算 符 ) 表达 式 THEN 语 句 

这 个 语句 是 条 件 语句 ， 但 在 COMX 一 35 BASIC 中 它 不 像 其 他 BA- 
SIC 版 本 仅 是 条 件 转移 ， 它 首先 检验 条 件 ， 如 果 条 件 满足 ， 就 执行 语句 
或 一 组 语句 〈 用 冒号 分 开 ) 如 果 条 件 不 满足 ， 那 末 继 续 执行 下 一 行 号 的 


语句 ， 在 比较 字符 串 关 系 式 时 ， 只 能 用 符号 和 不 等 号 的 关系 ， 在 算术 表 
达 式 情人 次 下 ， 下 列 关系 运算 符号 都 可 用 
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AAAV 


等 于 


<> ”不 等 于 
2 
< 小 于 
> = 大 于 或 等 于 
< = 小 于 或 等 于 


第 一 个 表达 式 的 型 式 限定 了 第 二 个 表达 式 的 型 式 ， 下 面 是 条 件 语句 的 例 
于 


10 IF A=B THEN PR A:WAIT(200):CPOS(0,0o):cLS: 


GOTO 200 
20 PR B 


这 里 ， 如 果 A 的 值 等 于 B 的 值 ， 那 么 就 打印 出 A 的 值 ， 然 后 停 一 段 时 间 
， 蓝 清 除 显示 屏 ， 再 继续 执行 200 行 ， 如 果 A 不 等 于 B， 那 么 打印 B 的 
值 ， 蔓 继续 执行 20 行 后 面 的 语句 。 

附带 说 明 一 点 ， 键 词 THEN 可 随 恶 省略， 下 面 是 一 种 应 防止 的 通病 。 


IF A>N THEN 200 


在 THEN 右 边 ， 如果 有 内 容 的 语 应 该 是 可 执行 的 语句 ， 但 数 200 下 不 是 
可 执行 的 语句 ， 正 确 的 写法 应 是 : 


IF A>B THEN GOTO 200 
或 IFA>BGOTO 200 


下 面 再 给 出 一 些 可 行 的 例子 ， 注 意 最 后 一 例 中 的 多 重 条 件 ， 如 果 任 


一 条 件 不 满足 ， 就 继续 执行 下 一 行 号 语句 ， 如 果 所 有 条 件 都 满足 ， 则 由 
GOTO 语句 转 到 执行 500 行 语 句 ， 


83 


10IF A(2):#B(1)>=CkSIN(A) PRA:GOTO 50 

10 IF A4$(2) ;nn LIST”LET B=3:GOTO 100 

10 IF B$(A+B)=MIDS$(A$,2,4)PR "OK” 

10 IF MID$(A$45),2,4)="EBCD”PR MATCH”: 
GOTO 500 

10 IF AS$=B$+CS THEN GOSUB 200:CLS : PR 
“DONE” 

10 IF A=INT(S/Z5) IF B>10IF C<5 GOTO 500 


NEXT 工 


NEXT 简单 变量 


这 个 语句 在 FOR 语句 中 已 说 过 ， 是 用 来 关闭 FOR NEXT 循 环 的 


， 如 果 省 去 变量 名 ， 则 NEXT 语 句 就 返回 到 在 它 前 面 的 FOR 语句 区 继 
续 执行 ， 如 果 包 含有 变量 名 ， 则 COMX 一 35 BASIC 要 检查 它 是 否 与 前 
面 的 FOR 语句 所 使 用 的 变量 名 相同 ， 如 果 不 一 致 ， 就 发 生 错误 信息 。 


RETURN 


这 个 语句 ，(〈 从 子 程序 调用 返回 ) 标记 子 程序 结束 ， 应 返回 到 刚 补 
执行 的 GOSUB 语句 后 面 的 语句 去 执行 。 


WAIT( 表 达 式 ) 


这 个 语句 提供 一 种 在 程序 执行 中 暂停 的 方法 ， 暂 停 时 间 的 长 短 与 表 


达 式 的 值 成 正比 : 1 相等 于 CPU 时 钟 128000， 表 达 式 的 值 为 1 的 暂停 
时 间 约 6. 4 毫秒 ( 即 128000X1/( 2 X10) ) ， 下 面 是 应 用 WAIT 语 句 的 


例子 : 


10 INPUT A$(1) 
20 PR“MESSAGE IS”;AV$(1) 
30 WAIT(500) : CLS : GOTO 10 
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这 个 程序 使 得 在 清除 显示 屏 之 前 能 有 一 段 时 间 ( 500X6.4 毫 秒 ) 看 到 该 
信息 ， 蓝 可 不 断 执 行 。 


指 今 语句 


指令 语句 是 系统 指示 语句 ， 指 今 语句 包括 CLD，CLS，CPOS， 
EDIT,EOD,EOP, FORMAT, LIST,NEW, RENUMBER,RUN， 
RUN 十 和 TRACE 。 


CLD 


这 个 语句 ( 清除 数据 ) 执行 时 清除 所 有 的 字符 串 和 数组 ， 它 是 通过 
重 置 字符 串 和 数组 指示 器 到 原始 状态 来 实现 的 。 


CLS 
清除 现 有 光标 位 置 以 下 的 显示 屏 ， 如 果 要 清除 整个 显示 屏 ， 重 打 
CPOS(40,0)/:CLS 


CPOS( 表 达 式 ， 表 达 式 ) 


这 个 语句 ( 光标 位 置 ) 是 移动 光标 到 括号 内 两 个 表达 式 所 指定 的 屏 
上 的 位 置 ， 第 一 个 是 规定 其 行 位 置 ( 0 到 23 ) ， 第 二 个 指定 其 列 位 置 人 
0 到 39 ) ，CPOS 可 以 与 CLS 一 起 使 用 来 清除 屏 的 一 部 分 ,与 PPINT 
一 起 使 用 来 将 信息 或 标题 从 屏 上 的 指定 位 置 开 始 显示 ' 或 与 SHAPE 一 
起 使 用 来 产生 彩色 图 形 ， 例 如 : 


10 CPOS (11,0 ) 
20 CLS 


RUN 


将 清除 屏 的 下 半 导 分 ， 


10 CPOS (11,12) 
20 PRINT "THIS IS A TEST” 


RUN 
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将 在 显示 屏 的 中 间 显 示 该 信息 。 


EDIT 表达 式 


文 个 话 人 


这 个 语句 打开 表达 式 所 调用 的 行 号 区 使 用 户 可 以 逐个 字符 进行 修改 
"详情 已 在 3.11 节 中 给 出 。 


下 OD 


忆 OP 


正 OD 语 名 (数据 结尾 ) 打印 出 数据 ( 数组 和 字符 串 ) 空间 的 结尾 的 
十 六 进 地 址 ， 正 OP 语句 (程序 的 结尾 ) 类 似 于 已 OD ,执行 时 ( 一 般 在 直 
接 执 行 状态 ) 自动 打印 出 当时 程序 空间 结尾 的 十 六 进 地 址 ， 用 户 可 在 程 
序 进程 中 随时 打 这 个 命令 看 看 已 存 入 存 崇 器 中 的 程序 的 结尾 在 那里 ， 下 
面 例 子 : 


EOP :了 0OD 
可 给 出 


加 4411 
四 411A 


里 给 出 的 数 是 十 六 进 制 的 。 
这 个 例子 说 明 程 序 的 结尾 在 4411 ( 十 六 进 ) ， 数 据 的 结尾 是 441A 


(十 六 进 ) , 正 OD 仅 是 在 执行 程序 产生 了 数据 之 后 才 是 有 效 的 ，( 即 是 
执行 DIM 语句 之 后 ) 
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FORMAT N 


这 个 语句 指定 数 区 大 小 〈 即 是 打印 数值 数据 的 地 方 大 小 ) 在 FOR- 
MAT 语 句 后 面 的 所 有 PRINT 语 句 ， 不 管 是 打印 变量 的 值 或 数 ， 都 按 指 
定 的 数 区 大 小 ， 例如 : 


A 王 12345.6 
FORMAT 7 
PR A 


PR 67890.1 


12345.6 
67890.1 
如 果 行 20 改 为 


20 FORMAT 6 
RUN 


如 果 40 行 改 为 


40 PR 一 67890.1 


总 之 ， 如 果 正 数 的 数 区 大 小 大 于 N， 将 打印 出 N 个 星 号 ， 如 果 是 负 
数 ， 将 打印 出 一 个 负 号 和 N 一 1 个 星 号 。 
87 


行 到 第 二 表达 式 所 指定 的 行 ， 


N 的 范围 从 1 到 15 


FORMAT 0 的 县 义 是 解释 FEFORMAT 的 约束 。 


例如 : 


FORMAT 5 
了 及 123456 
FORMAT 0 


了 PR. 123456 


炒米 沙 米 炒 
123456 
世 工 


LIST 表达 式 


LIST 表达 式 ， 表 达 式 


这 个 语句 ( 列 程序 清单 ) 若 不 需 表 达 式 ， 将 列 出 用 户 空 间 中 的 整个 


程序 ， 如 果 给 出 一 个 玫 达 式 ， 则 仅 列 出 一 行 ， 其 行 号 就 是 表达 式 的 值 ， 
如 果 给 出 两 个 表达 式 ， 中 间 用 逗号 分 开 ， 则 列 出 从 第 一 表达 式 所 指定 的 
如 果 表 达 式 的 值 不 是 实际 存在 的 行 号 ， 那 
未 就 列 出 在 此 值 后 面 最 接近 的 行 号 的 那 一 行 。( 也 可 见 33 节 ) 


NEW 


这 个 语句 将 COMX 一 35 BASIC， 有 用户 空间 和 数据 空间 全 邵 初 始 化 


， 即 是 清除 用 户 所 产生 的 COMX 一 35 BASIC 程 序 蓝 预 填 所 有 的 字符 串 


和 数组 指示 器 。 
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RENUMBER 
RENUMBER N 


RENUMBER 语 句 使 用 户 可 按 给 定 的 增 量 重新 改写 程序 中 的 行 号 ， 
如 果 在 RENUMBER 语 句 中 没有 自 变 量 ， 增 量 就 取 为 10， 即 行 号 为 10 ， 
20，30 这 样 往 下 去 ， 若 给 定 n ， 则 以 它 为 初始 行 号 ， 如 果 n 的 值 超过 256 
' 就 都 调整 为 256， 显 示 出 来 还 出 现 一 个 表示 "计算 转移 " 数 的 警告 信息 
。 计算 转移 "是 要 求 计算 机 转移 或 跳 转 到 另 一 个 其 行 号 还 未 决定 的 行 的 
语句 ， 例 如 ， 考虑 下 面 的 程序 


FOR A=1 TO 5 
N(A)=0 
N 也 X 工 


GOTO 10 


0 COMP BR 


同时 LIST 就 给 出 


FOR A=1 TO 5 
N= 三 0 


N 也 广 工 
GOTO 20 


注 症 各 行 已 彼 重新 改 号 ， 另 外 ， 话 名 ”25 GOTO 10" 变 成 “80 GOTO 
20”， 用 为 老 的 行 号 10 已 改 为 20， “GOTO 10" 还 是 一 个 "计算 转移 ”( 
故 有 信息 ”0 COMP BR”) ， 因 为 计算 机 能 赐 决 定 要 转移 或 跳 转 为 行 。 


考虑 另 一 个 例子 ， 其 中 用 "GOTO 5 半 2”( 或 "GOTO B”) 代替 
“GOTO 10” 
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FOR A=1 TO 5 
NGCA)=0 


NEX 工 
GOTO 5 沙 2 


RENUMBER 20 


如 给 出 信息 


1 COMP BR 


同时 LIST 将 给 


FOR A=1 TO 5 
N(A)=0 


N 王 工 
GOTQ 5 于 2 


有 一 个 "计算 转移 "的 警告 信息 指示 我 们 ， 在 这 种 情况 下 ， 有 一 行 ， 
即行 80， 由 于 改写 行 号 的 结果 会 出 现 错误 ， "GOTO 5 半 2”( 和 GOTO 
B ) 是 “计算 转移 "的 例子 。 


RUN 

这 个 语句 置 COMX 一 35 BASIC 以 执行 程序 的 状态 COMX 一 35 BA- 
SIC 找 出 最 小 的 行 号 ， 瘟 按 行 号 顺序 开始 逐 行 执行 ， 不 过 ， 在 开始 执行 
之 前 ,RUN 语 句 要 清除 所 有 数组 和 字符 串 数 据 空 间 以 存放 新 数据 。 


RUN 表达 式 


这 人 站 语句 是 从 表达 式 所 指定 的 行 号 开始 执行 ， 它 与 不 带 表 达 式 的 
RUN 类 似 都 是 置 COMX 一 35 BASIC 以 执行 状态 ,如果 表达 式 所 指定 的 
行 号 实际 不 存在 ， 则 产生 一 个 错误 代码 ， 另 外 ， 由 于 这 种 RUN 语句 不 
清除 数据 空间 ， 故 用 户 可 执行 带 有 先前 所 产生 的 数据 ( 字符 串 或 数组 ) 
的 程序 。 
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RUN 十 


这 个 语句 检查 用 户 的 程序 芍 用 "绝对 地 址 转移 "代替 "解释 转移 ”， 然 
后 开始 执行 ， 这 一 步 大 大 提高 了 速度 ， 经 过 最 初 一 轮 RUN 十 之 后 ,以 后 
RUN 就 以 这 种 较 快 的 方式 执行 ,但 如 果 程 序 经 过 编辑 ， 则 系统 就 自动 转 
回 较 慢 的 状态 。 


用 RUN 十 转变 过 的 程序 不 是 以 这 种 形式 存 赃 的 ,因为 已 指定 绝对 地 
址 。 


( 注意 : 执行 RUN 十 时 ， 只 要 BASIC 解释 程序 遇 到 一 个 ”分 支 或 
转移 话 句 ”， 上 比 为 "GOTO 10" 它 就 去 找 存 有 行 号 ”10" 的 绝对 地 址 ， 从 
而 将 语句 从 所 谓 ”“ 解 释 转移 "转换 成 “绝对 地 址 转移 ”。 


像 GOTO B "这 样 的 语句 不 是 "解释 转移 ”, 因 为 已 经 知道 要 转移 到 
的 行 号 已 存 邮 在 符号 地 址 B 的 地 方 ) 。 


TRACE 表达 式 


如 果 跟 在 后 面 的 表达 式 的 值 非 雳 ， 则 ”跟踪 ”起 作用 ， 就 是 说 ， 
COMX 一 35 BASIC 要 执行 的 每 一 行 都 给 显示 屏 途 下 列 信息 : 


TR ( 行 号 ) 


屏 上 的 数字 是 被 执行 的 每 一 语句 的 行 号 ， 这 样 就 使 用 户 能 够 “跟踪 ”程序 
的 流向 ， 这 在 调试 阶段 对 保证 程序 能 达到 预定 目的 特别 有 用 。 


如 果 执 行 的 TRACE 语句 后 面 跟着 的 表达 式 的 值 是 0， 则 跟踪 停止 
， 这 些 语句 可 放 在 COMX 一 35 BASIC 程 序 的 任何 地 方 ， 对 TRACE 话 
句 来 说 非常 有 用 的 地 方 是 在 一 个 中 断 程序 中 。 


用 一 个 BASIC 程序 试 试 下 面 命 分 : 


TRACE(1):RUN | 
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5'9 注释 和 定义 语句 


注释 和 定义 语句 使 程序 员 可 在 程序 中 播 进 注 释 和 配置 存 赃 单 元 ， 即 
定义 程序 的 开始 地 址 ， 给 数据 分 配 存 崇 单元 等 一 类 事情 ， 注 释 和 定义 语 
句 包括 DEFINT，DEFUS，DEG，DIM，FIXED，RAD 和 REM。 


DEREINT 
DEFINT 变量 名 


这 个 语句 〈 定义 整 型 变量 ) 如 果 不 带 变量 名 ， 执 行 时 所 有 变量 ( A 
一 Z ) 和 所 有 数组 ( A ( 表达 式 ) -一 Z( 表达 式 )) 都 选 做 流 点 型 ， 如 果 
在 DEFINT 语 句 中 包含 有 变量 名 ' 则 从 A 起 到 此 变量 名 ( 包括 此 变量 名 
) 的 所 有 变量 和 数组 都 取 为 整形 ， 例 如 


DEFINT D 


就 定义 以 A，B ，C ，D 为 名 称 的 变量 和 数组 为 整形 由 于 NEW 语句 总 
是 将 所 有 变量 恢复 为 浮 点 型 ， 因 此 ， 如 果 在 程序 中 要 使 用 整形 变量 ， 就 
应 提早 在 程序 中 出 现 DEFINT 语 句 。 


还 要 注 则 ， 如 果 所 用 的 DEFINT 是 不 带 变 量 名 的 ， 就 必须 以 一 个 回 
车 结束 ， 就 是 说 ， 在 同一 行 不 可 再 用 冒号 来 连接 其 它 的 指令 。 


DEFUS 表达 式 


这 个 语句 〈 定义 用 户 空 间 的 入 口 ) 是 用 来 使 程序 空间 的 入 口 在 存 崇 
器 中 往 前 移动 ， 如 图 5.9 1 所 示 ， 它 使 程序 员 能 在 存 赃 器 中 创造 一 个 ” 
空 穴 ” 用 的 存 赂 机 器 语言 程序 ， 表 达 式 定义 程序 空间 应 从 何 处 开始 ， 在 
COMX 一 35 BASIC 中， 用户 空 间 是 在 十 六 进 地 址 4400 处 开始 ， 表 达 式 
的 值 必须 大 于 4400 ( 十 六 进 ) ，COMX 一 35 BASIC 将 使 表达 式 舍 取 到 
仅 给 出 整 页 的 移动 量 ， 如 果 企 图 在 小 于 4400 ( 十 六 进 ) 的 地 址 定义 作为 
用 户 空间 ， 则 COMX 一 35 BASIC 将 会 "自我 毁灭 ”就 是 党， 由 于 程序 写 
过 系统 区 ( 见 图 5.9'1 ) ，BASIC 解释 程序 不 再 能 正常 工作 ， 每 执行 
一 次 DEFUS 语 句 ， 只 有 用 另 一 个 到 4400 ( 十 六 进 ) 的 DEFUS 才能 使 
程序 空间 返回 到 4400 ( 十 六 进 ) 该 语句 破坏 了 当前 在 存 崇 器 中 的 用 户 程 
序 。 
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对 移动 用 户 程序 空间 的 入 口 有 兴趣 的 一 种 情况 是 在 PSAVE 语 句 中 
， 如 果 在 移动 过 的 地 方 已 产生 一 个 程序 ， 同 时 还 有 有 关 的 一 些 机 器 语言 
程序 ，PSAVE 语 句 会 录 存 从 4400 ( 十 六 进 ) 到 程序 空间 结尾 的 全 导 内 
容 ， 包 括 机 器 语言 程序 和 有 关 的 COMX 一 35 BASIC 程 序 ， 随 后 的 P - 
LOAD 会 回 输 入 上 述 的 一 切 ， 包 括 机 器 语言 程序 ， 同 时 也 重新 定义 用 户 
空间 的 入 口 到 文件 产生 的 地 方 ， 不 需要 管理 操作 。 


DEFUS @6D00 或 
DEFUS  6DCC 移动 用 户 空 间 的 入口 到 6D 00 
DEFUS 四 4400 移动 程序 空间 的 入 口 回 到 初始 位 填 。 


BFFEF ( 十 六 进 刘 


由 表达 式 指定 的 程序 
空间 的 开始 位 填 。 


4400 “ 空 穴 ” 


3FFF ( 十 六 进 ) 


ROM BASIC 


0000 ( 十 六 进 ) 


图 5.9'1 使 用 DEFUS 往 上 移动 程序 空间 的 开始 位 置 
DEG 


这 个 语句 使 用 角 画 数 的 计量 单位 取 作 角度 。COMX 一 35 BASIC 的 
预 置 状态 是 狐 度 制 ， 这 个 语句 的 对 立 面 是 RAD 话 句 。 
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DIM 变量 表 


这 个 语句 〈 定义 数组 ) 是 用 于 给 数值 数组 预定 存 崇 单元 ， 这 些 数组 
可 以 是 一 维 或 二 维 ， 表 达 式 规定 在 一 维 或 二 维 数组 中 究 葛 有 多 大 ， 请 看 
前 面 关 于 数组 及 其 大 小 限制 的 讨论 ， 数 组 的 型 式 ( 澶 点 或 整 型 ) 依赖 于 
变量 名 是 定义 为 整 型 还 是 浑 点 型 ， 例 如 ， 如 果 所 有 变量 A 一 Z 都 是 序 点 
型 ， 那 么 所 有 数组 也 将 是 涯 点 的 ，( 与 规定 其 大 小 的 表达 式 的 型 式 无 关 
) 如 果 变 量 A，B 和 C 定义 为 整 型 ， 那 么 以 A，B 和 C 为 名 称 的 数组 ( 
如 果 使 用 的 话 ) ， 也 将 定义 为 整 型 ， 多 个 数组 可 以 用 同一 个 DIM 语句 来 
定义 ， 只 要 每 个 数组 用 逗号 分 开 。 


如 果 定 义 的 数组 的 大 小 超过 存 赃 单元， 将 给 出 错误 信息 ， 在 未 对 数 
组 进行 定义 之 前 就 想 使 用 数组 中 的 元 素 也 会 导致 出 现 错误 信息 ， 为 了 收 
回 整 个 数据 空间 ， 程 序 员 可 使 用 CLD 语句 来 清除 所 有 不 需要 的 数据 空 
间 。 


下 面 是 DIM 话 句 的 例子 。 
DIM A(10,10) B(20) 


上 面 例 子安 排 一 个 空间 存放 依次 命名 为 A(1,1) 到 A (10，10 ) 的 100 
个 数 ( 10X10 ) 和 命名 为 B(1 ) 到 B(20) 的 20 个 数 。 


如 果 需 要 的 话 ， 定 义 语句 也 可 在 直接 执行 状态 中 使 用 ， 程 序 所 产生 
的 任何 数组 在 程序 执行 完成 之 后 仍 完 整 保留 ， 可 以 在 直接 执行 状态 用 
PRINT 语 名 来 查询 数组 的 内 容 在 执行 CLD 语 名 或 对 程序 进行 编辑 之 前 
,数组 都 一 直 完 整 保留 ， 请 注意 ， 如 果 执 行 "RUN 表达 式 ", 因为 站 没 有 
清除 数据 空间 ， 故 数组 不 会 被 清 去 ， 在 这 种 情况 下 ， 如 果 再 定义 就 会 导 
致 错误 信息 ， 正 因为 这 样 ， 程 序 员 如 果 希 户 使 用 前 面 所 产生 的 数据 ， 就 
应 从 DIM 语句 后 面 的 行 号 开始 执行 ， 数 组 数据 和 字符 串 数据 一 样 ， 直 接 
存在 用 户 空间 的 后 面 ， 对 原来 程序 进行 编辑 就 会 改变 用 户 空间 ， 因 而 就 
破坏 了 数据 ， 应 说 明 的 是 ， 一 个 数组 可 以 不 破坏 其 他 数组 或 字符 串 而 重 
新 定义 。 
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EIXED 表达 式 


这 个 语句 执行 时 规定 打印 入 点 数 和 整数 的 格式 ， 表 达 式 的 值 规定 小 
数 点 右边 要 打印 多 少 位 ， 位 数 不 足 用 0 补 齐 ， 如 果 需 要 ， 数 字 可 进行 舍 
入 ， 表 达 式 的 值 应 在 0 到 6 之 间 ， 如 果 给 定 的 数 大 于 6， 则 COMX 一 35 
BASIC 就 恢复 到 输出 数字 的 通常 格式 ( 即 FORMAT 0) 例如 


FIXED 2 

PR 123 将 得 出 123.00 
PR 123.567 将 得 出 123.57 
PR 6E7 将 得 出 .60E08 
FIXED 7 

PR 123.50 将 得 出 123.5 
RAD 


这 个 语句 将 角 画 数 的 计量 单位 选 为 跑 度 ， 这 种 状态 是 COMX 一 35 
BASIC 的 预 冒 状 态 ， 这 个 语句 的 对 立 面 是 DEG 语句 。 


REM 


如 果 将 REM 放 在 任 一 COMX 一 35 BASIC 行 的 开头 时 ， 这 整个 一 
行 在 程序 执行 过 程 就 被 列 出 来 不 予 理 皮 ， 其 目的 是 使 程序 员 可 插入 一 些 
作为 说 明 性 文件 的 注释 。 


5'10 程序 数据 话 名 
程序 数据 语句 使 程序 员 能 在 程序 中 嵌 进 数据 表 ， 站 提 供 一 种 在 程序 


执行 过 程 读数 据 的 技巧 ， 程 序数 据 语 名 包括 DATA，READ 和 有 RE- 
STORE 。 


DATA 数据 表 

DATA 话 句 包 含 给 READ 语 句 使 用 的 数据 ,DATA 话 句 中 的 每 一 元 
素 必 须 用 逗号 隔 开 ， 任 一 字符 串 都 必须 用 引号 括 起 来 ,， DATA 话 句 可 放 
在 COMX 一 35 BASIC 程 序 的 任何 地 方 ， 下 面 是 一 些 DATA 话 句 的 例子 : 
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1DATA 2:#kA,A$(1)，HELLO”，B 
1000 DATA 1,2,3,14 
5000 DATA SIN(45),SIN(60),SIN(90) 


READ 变量 表 


READ 语 句 是 用 来 从 DATA 话 句 中 读 出 数据 区 将 数据 赋 给 各 个 变量 
,每 当 READ 语 句 再 需要 数据 时 ， 内 导 COMX 一 35 BASIC 指 示 器 就 移 
到 DATA 话 名 的 下 一 片 数 据 ， 当 一 个 DATA 话 句 的 数据 用 完 时 ，COMX 
一 35 BASIC 就 往 下 面 寻找 另 一 个 DATA 话 句 ， 如 果 再 也 找 不 到 ， 就 显 
示 错 误 信 息 说 明 数 据 不 锡 用 ， 重 要 的 是 要 记 住 READ 语 句 中 的 变量 名 或 
字符 串 名 和 DATA 话 句 中 相应 的 数据 ,它们 在 形式 上 应 相 匹配 : 字符 串 
应 对 字符 串 ， 等 等 ， 下 面 是 一 个 DATA READ 话 句 对 的 例 : 


5 DIMA(4) 

10 DATA 10,20,30,40 

20 FOR A=1 TO 4 

30 READ A(AI) 

40 NEXT 

50 READ AS$(1),B,C 

60 PR AS$C1);B#kC 

70 DATA "B#kC IS EQUAL TO”20, 30 
上 述 例子 的 结果 是 ， 存 进 数组 A 的 是 

AL(1 )=10,A( 2 )=20,A( 3 )=30,A(4 )=40 
行 60 将 绘 出 

B#kC IS EQUAL TO 600 

RESTORE 

这 个 语句 将 上 述 的 COMX 一 35 BASIC 指 示 器 重新 拨 回 到 程序 中 第 
一 个 DATA 语 名 的 开头 ， 这 样 就 可 在 一 个 程序 中 多 次 使 用 DATA 。 
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5 11 输入 二 输出 语 旬 


I0 ( 输入 一 输出 ) 语句 是 在 程序 和 程序 用 户 间 提供 一 个 联接 口 ， 
IO 话 句 包括 INPUT，PRINT 和 了 PR 。 


INPUT 变量 表 


当 COMX 一 35 BASIC 遇 到 INPUT 语句 时 就 停 下 来 ， 划 在 显示 屏 
上 给 出 一 个 问号 ”?“ 作 为 提示 符 ， 然 后 等 待 用 户 回 答 。INPUT 语 句 后 
面 可 以 是 一 个 变量 名 表 ， 各 变量 名 必须 用 逗号 分 开 ， 在 回答 提示 符 “? ” 
时 ， 用 户 可 答 以 表达 式 或 用 逗号 分 开 的 一 组 表达 式 。 如 果 在 INPUT 语 
句 中 包含 三 个 变量 名 ， 而 用 户 仅 回答 二 个 表达 式 ，COMX 一 35 BASIC 
将 运 出 另 一 个 提示 符 ( ? ) 站 等 待 第 三 个 表达 式 。 如 果 INPUT 语句 只 
有 一 个 变量 名 而 用 户 回 答 二 个 或 更 多 个 表达 式 ，COMX 一 35 BASIC 将 
继续 执行 下 去 ， 当 它 遇 到 另 一 个 INPUT 语句 时 ， 就 会 检 出 未 被 使 用 过 
的 头 一 个 表达 式 而 不 再 给 出 另外 的 提示 符 。 这 样 继续 下 去 ， 直 到 所 有 未 
被 用 作 输 入 的 数据 用 完 为 止 ， 那 时 才 才 出 另 一 个 提示 符 “? “被 挑 出 来 的 
数据 就 赋 给 相应 的 变量 名 作为 输入 , 变量 名 的 型 式 决定 相对 应 的 输入 表 
达 式 的 计算 方式 。 


注 则 ，INPUT 话 句 不 能 同时 包含 字符 串 变量 名 和 通常 变量 名 ， 还 
有 ， 每 个 包含 字符 串 变 量 名 的 INPUT 话 句 ， 井 且 只 能 包含 一 个 变量 名 
， 由 于 有 这 个 限制 ， 程 序 员 在 回答 INPUT A$ 话 句 时 ， 可 用 一 个 不 带 
行 号 的 字符 串 回 答 ， 回 车 就 标志 该 字符 串 结束 。 下 面 是 -一些 INPUT 话 
句 的 例子 


10 _ INPUT A,B,C, (1 ) 
10 INPUT A(1),A(B) 
10 INPUT AS$ 

10 INPUT B$(B) 


下 面 是 一 些 错 误 的 INPUT 话 句 
10 INPUT AB (变量 之 间 没 有 定 界 符 ) 
10 _ INPUT A$,B$ (不 能 有 多 个 字符 串 名 ) 
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INPUT “字符 串 " 变 量 表 


这 个 INPUT 话 句 与 上 面 的 INPUT 话 句 基本 相同 ， 只 是 它 在 键 词 
INPUT 后 面 紧 接 一 个 3| 号 ， 它 使 得 能 在 问号 提示 符 的 前 面 打印 出 一 个 
信息 ， 头 个 引号 前 面 和 尾 个 引号 后 面 都 不 同 定 界 符 或 分 隔 符 。 


PRINTI 或 PR 
PRINT 打印 表 


PR 是 PRINT 的 缩写 ， 在 注入 表 中 时 ，PR 就 代 回 PRINT， 这 个 语 
句 的 且 的 是 要 LO 程序 输出 前 面 已 定义 的 表达 式 或 字符 串 丁 数 ， 各 个 要 
输出 的 项 必须 用 适当 的 定 界 符 壹 号 或 分 号 隔 开 ， 每 种 定 界 符 都 有 特定 的 
功能 ， 如 果 使 用 逗号 ， 则 下 一 次 就 打印 在 下 一 个 八 格 的 "打印 区 ”中 。 如 
果 用 分 号 ， 就 没有 播 入 空位 ， 下 一 次 紧 接 在 前 一 次 的 后 面 ， 在 PRINT 
语句 末尾 也 可 用 分 号 和 去 号 来 制止 回 车 ， 这 样 在 程序 中 遇 到 下 一 个 PR.- 
INT 话 句 时 ， 就 从 上 一 个 语句 离开 的 地 方 开始 。 如 果 PRINT 语句 只 是 
单个 PRINT， 则 输出 的 是 回 车 或 空 行 ， 有 两 个 只 能 在 PRINT 话 句 中 
使 用 的 画 数 : TAB ( 表达 式 ) 和 CHR $ ( 表达 式 ) ， 关 于 这 两 个 本 数 已 
分 别 在 5.13 节 和 5:5 节 做 了 说 明 ， 下 面 是 一 些 PR 语 句 的 例子 : 


PRINT 5 

PRINT A 

PR (A+B)ZC 

PR A,B,1234,C(5) 

PR “THE VALUE OF A 一 ”; A 
PR AS$(1)+AV$(2) 

PR AS$(2),A,B ; 

PRINT MID $(A$ ,1,2) 
PRINT TAB(A+B);10; TAB(30) ; 忆 
PR A， 

PR 


注 悉 ， 当 PRINT 语句 中 出 现 多 于 一 个 算术 表达 式 时 ， 每 个 表达 式 的 计 
算 可 取 不 同方 式 。 
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5'12 机 器 语言 子 程序 语句 


机 器 语言 子 程序 语句 使 程序 员 可 在 其 程序 中 包含 机 器 语言 代码 ， 以 
利用 处 理 机 的 特殊 性 能 或 提高 实时 应 用 的 速度 ， 机 器 语言 子 程序 语句 是 
CALL。 


CALL ( 表达 式 1 ) 
CALL ( 表达 式 1， 表 达 式 2 ) 
CALEL ( 表达 式 1， 表 达 式 2， 表 达 式 3 ) 


这 个 语句 提供 COMX 一 35 BASIC 与 机 器 语 襄 程序 设计 之 间 的 链接 ， 它 
用 于 机 器 语言 子 程序 调用 ， 它 使 执行 转移 到 由 表达 式 规定 其 地 址 的 机 器 
语言 子 程序 ， 编 写 机 器 语言 程序 应 该 记 住 下 面 的 规则 : 


(1) 进 入 子 程序 的 程序 计数 器 是 R3 

(2) 用 D5 ( SEP R5 ) 指 今 返回 COMX 一 35 BASIC 

(3) 机 器 语言 程序 可 随 晤 使 用 R8,RA,RC, RD 和 RE。 如 果 要 使 用 其 
他 寄存 器 ， 首 先 应 存 到 堆栈 并 在 返回 COMX 一 35 BASIC 之 前 复原 。 


注 晶 ， 不 可 使 用 标准 的 调用 和 返回 方法 ( SCRT ) ， 因 为 它 会 破坏 
寄存 器 FF( RF.1 ) 的 上 邵 。 


(4)JCOMX 一 35 BASIC 已 建立 了 调用 和 返回 的 规约 ， 不 需要 再 用 机 
器 语言 子 程序 来 重复 。 


(5) 可 以 使 用 堆栈 (由 R 2 指示 ) ， 只 要 一 离开 就 返回 就 可 以 。 


每 个 表达 式 ( 表达 式 1 ， 表 达 式 2 ， 表 达 式 3 ) 都 可 用 整 型 式 序 点 
型 表示 。COMX 一 35 BASIC 会 自动 将 其 转换 成 整 型 ， 如 果 有 表达 式 2 
: 则 将 其 值 变 成 R_ 8 中 的 机 器 数 ， 第 二 邵 分 数据 也 可 适 到 寄存 器 R A 中 
的 机 器 语言 子 程序 ， 其 值 就 是 表达 式 3 的 值 ， 对 应 用 程序 要 给 R D 预 置 
定时 常数 。 
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5.13 IZO 有 用途 
这 组 西数 包括 MEM，PEEK 和 TAB 
MEM 


这 个 画 数 使 用 户 能 确定 还 剩 多 少 个 存 崇 单 元 ,执行 时 ，MEM 给 出 一 
个 代表 在 数据 ( 字符 串 和 数组 ) 的 结尾 和 通常 堆栈 的 结尾 之 间 留 下 的 存 
崇 字 节 的 个 数 的 十 进 数 ， 考 虑 到 程序 执行 过 程 堆栈 的 增长 ， 实 际 返 回 的 
数量 用 256 缩减 。 例 如 ， 要 在 屏 上 得 到 其 值 用 户 就 应 打 。 

PR MEM 


PEEK(〈 表 达 式 ) 


这 个 函数 途 回 与 由 该 表达 式 所 确定 的 地 址 那个 存 崇 单元 的 内 容 等 价 
的 十 进 数 ， 例 如 


10 A=PEEK(16842 ) 
20 IF A=8 THEN PRINT “NTSC MACHINE?” 
30 IF A=9 THEN PRINT “PAL MACHINE” 


现在 变量 A 包 含 存 赃 在 存 迪 单元 16842 的 ”内容 ”。 这 是 二 个 “系统 变量 ” 
， 它 告诉 我 们 你 的 COMX 一 35 是 PAL 机 ， 还 是 MTSC 机 。 


TAB〈 表 达 式 ) 

这 个 函数 与 上 面 两 个 函数 不 同 ， 不 返回 任何 数值 ， 它 只 能 在 PRINT 
语句 中 才 可 使 用 它 将 光标 移 到 由 该 表达 式 的 值 确定 的 水 平 位 置 上 ， 光 
标的 新 位 置 是 相等 于 第 0 列 而 定 的 ， 而 不 是 相对 于 先前 的 位 置 而 定 的 。 
然后 就 从 所 指 的 地 方 继续 打印 。 

下 面 是 一 些 例子 : 


PR TAB(10) ;1 
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将 在 第 10 列 打印 出 1 
PR TAB(10); 1 ;TAB(20); 2 
将 在 第 10 列 打印 出 1 和 在 第 20 列 打印 出 2 
PR TAB(CA) ;水 ” 
将 在 第 A 列 打印 出 一 个 星 号 "水 ” 
5.14 机 器 语言 用 途 
这 一 类 只 有 唯一 的 函数 USR 
USR ( 表达 式 1 ) 
USR ( 表达 式 1， 表 达 式 2 ) 
USR ( 表达 式 1 ， 表 达 式 2 ， 表 达 式 3 ) 
这 个 画 数 的 作用 很 像 上 一 段 所 说 CALL 语 句 ， 不 同 的 是 USR 是 
一 个 函数 ， 它 被 用 作 表 达 式 的 一 部 分 ， 当 遇 到 USR 时 ， 就 往 储 存在 表达 
式 1 所 指定 位 置 的 机 器 语 言 程序 调用 子 程序 ， 数据 可 以 与 CALL 完全 
相同 的 方法 迭 到 子 程序 。 


请 注意: USR 和 CALL 是 使 用 1802 微 处 理 器 规约 和 寄存 器 ， 关 于 
1802 CPU 的 详细 解释 请 参考 1802 程 序 设计 手册 。 
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第 六 生 


程序 设计 例子 


第 六 章程 序 设计 例子 
这 一 章 收集 一 些 程序 ， 除了 这 些 程序 本 身 有 用 外 ， 也 作为 例子 说 明 
某 些 BASIC 指 今 的 应 用 对 每 个 程序 ， 除了 提供 其 BASIC 源 程序 表 和 
打印 运行 的 屏幕 显示 外 ， 对 其 中 某 些 程序 设计 的 技巧 也 做 了 注解 。 


6.1 关于 CAI( 计算 机 支持 指 今 ) 的 第 一 个 例子 一 


用法。 


6.1.1 程序 表 


10 “REM THIS PROGRAM IS ATUTORIAL TO 

20 “REM SHOW HOW TO COMMAND COMX 35 

30 “REM TO CHANGE THE COLOR OF THE 

40 “REM CHARACTERS, AND OF THE SCREEN 

50 “REM AND HOW TO PRODUCE SOUND 

60 REM EFFECT 

70 “REM 

75 “CPOS (0,0):CLS 

80 SCREEN (3): COLOR (8): CPOS (1.7): PRINT “HI 
| AM THE CLEVER COMX 35! 

90  CPOS (3,4): PRINT “| LIKE TO SHOW YOU 

100 CPOS (5,4): PRINT “HOW TO DO THE FOLLOWING:… 


110 CPOS (7,4): PRINT “ 1. HOW TO CHANGE THE 
COLORS” 

120 PRINT ” OF THE CHARACTERS DISPLAYED” 

140 CPOS (10,4): PRINT ” 2. HOW TO CHANGE THE 
COLOR” 


150 PRINT ” OF THESCREEN.… 

160 CPOS (13,4): PRINT: “” 3. HOW TO PRODUCE SOUND 
EFFECTS.” 

170 CPOS (15.2): INPUT“WHICH OF THE ABOVE WOULD 
YOU LIKE TO KNOW? 1,2 OR 3. ANSWER 0 TO END” 
K 

175 PRINT 

177 IF K=0 THEN GOTO 710 
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180 GOTO K# 200 

200 SCREEN (1): COLOR (7): CPOS (0,0): CLS 

204 CPOS (3,8): PRINT “TO CHANGE THE COLOR OF THE” 

205 CPOS (4,11): PRINT “CHARACTERS, WE USE THE” 

210 CPOS (5,11): PRINT “COMMAND COLORI(N) WHERE N” 

215 CPOS (6,11): PRINT “DETERMINES” 

220 CPOS (8,8): PRINT ”THE COLOR OF THE COMPUTER” 

225 CPOS (9,9): PRINT ”′ OUTPUT CHARACTERS, AND” 

230 CPOS(11,8): PRINT ′ THE COLOR OF THE KEYBOARD” 

235 CPOS (12,9):PRINT ”INPUT CHARACTERS” 

240 CPOS (14,8): PRINT “PLEASE TYPE” 

245 CPOS (16,8): PRINT ” COLOR (N)” 

247 ”CPOS (18,8): PRINT “(WHERE N CAN BE 2,3,4,5,6,7,8)” 

250 CPOS (20,8): PRINT “AFTER THE ?SIGN. THEN. 
PRESS” 

255 CPOS (21,11): PRINT “THE CR KEY” 

260 INPUT A$ 

265 8B$=MID$(A$,7,1) 

270 C=FVAL (B$) 

275 COLOR (C) 

280 PRINT “TYPE ANY KEY，FOLLOWED BY” 

283 PRINT “PRESSING CR TO REVERT TO” 

285 PRINT “ORIGINAL COLOR” 

290 INPUT AS$ 

295 COLOR (12) 

300 PRINT “N CAN HAVE VALUE FROM 1 TO 12” 

305 PRINT “INCLUSIVE. YOUR MANUAL WILL” 

310 PRINT “TELL YOU WHAT COLOR” 

315 PRINT “COMBINATION FOR EACH VALUE” 

320 PRINT “OF N.… 

325 CPOS (0,0): CLS: GOTO 80 

400 SCREEN (7): COLOR (12): CPOS (0,0): CLS 

404 CPOS (6,4): PRINT“TO CHANGE THE BACKGROUND 
COLOR” 

405 CPOS (8,4): PRINT “OF THE SCREEN, WE USE THE” 

410 CPOS (10,4): PRINT “SCREEN(M) COMMAND.… 

415 CPOS (13,4): PRINT “FOR EXAMPLE“PLEASE TYPE 

420 CPOS (16,4): PRINT '” SCREEN(M)” 

422 CPOS (19,4): PRINT“(WHERE M IS ANY INTEGER 1 
TO 8)” 

425 CPOS (21,4): PRINT “AFTER THE ? SIGN. AND PRESS 
CR” 

430 INPUT A$ 
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B$=MID$(A$,8,1) 
C=FVAL (B$) 
SCREEN (C) 
PRINT “PRESS ANY KEY FOLLOWED BY CR” 

PRINT “REVERT TO THE ORIGINAL SCREEN” 
PRINT “COLOR 

INPUT AS$ 

SCREEN (1) 

PRINT “M CAN HAVE VALUES OF 1TO 8” 

PRINT “INCLUSIVE. YOUR MANUAL WILL” 

PRINT “TELL YOU THE SCREEN COLOR 

PRINT “CORRESPONDING TO EACH ” 

PRINT “VALUE OF N” 

CPOS (0,0): CLS: GOTO 80 

SCREEN (2): COLOR (5): CPOS (0,0): CLS 

CPOS (3,4): PRINT “MUSICAL NOTE IS GENERATED 
USING” 

CPOS (5,4): PRINT “THE MUSIC (X,Y,Z) COMMAND” 
CPOS (8,4): PRINT ”X=1TO 7 FOR DO TO TEE” 
CPOS (10,4): PRINT ”Y=1TO8 FOR OCTAVE” 

CPOS (12,4): PRINT ”Z=0TO 9 FOR AMPLITUDE 
CPOS (15,4): PRINT “TRY, FOR EXAMPLE, TYPING,” 
CPOS (18,4): PRINT ″′ MSUIC (X,Y,Z)” 

CPOS (21,4): PRINT “AFTER THE ?SIGN. THEN PRESS 
CR” 

INPUT Ad$ 

X$=MID$ (A$,7,1) 

Y$=MID$(A$,9,1) 

Z$=MID$(A$,11,1) 

X=FVAL (X$) 

Y=FVAL (Y9) 

Z=FVAL (Z$) 

MUSIC (X,Y,Z) 

PRINT “HIT ANY KEY FOLLOWED BY CR TO 

PRINT “STOP THE MUSIC NOTE 

INPUT A$ 

MUSIC (0,0.0) 

CPOS (0,0): CLS: GOTO 80 
SCREEN (1): COLOR (12): END 
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6.1'2 程序 设计 要 点 

(1) 10 行 到 60 行 中 使 用 REM 是 用 来 说 明 程 序 的 目的 。 

(2) 75 行 是 清除 显示 屏 以 使 以 后 可 显示 。 

(3) 80 行 ， 注 症 其 中 使 用 SCREEN 和 COLOR 来 改变 显示 的 颜色 
(4) 80 行 到 160 行 , 注 伸 其 中 使 用 CPOS 来 给 要 显示 的 信息 定位 置 。 


(5) 170 行 ， 这 个 INPUT 语句 输出 一 个 信息 向 用 户 解释 如 何 与 计 
算 机 “对 话 "”， 这 里 要 求 用 户 在 答案 1.2 .3 或 0 中 任 选 一 个 。 


(6) 260 行 ， 计 算 机 从 用 户 接受 形式 为 COLOR (N ) 的 字符 串 A$ 
， 假定 用 户 输入 的 是 COLOR ( 6 ) 。 


(7) 265 行 到 275 行 ， 命 邻 计算 机 执行 用 户 要 求 的 COLOR ( 6 ) 
指令 ， 这 三 行 刚 好 使 用 MID$ 和 FVAL 画 数 ，265 行 是 从 字符 串 CO- 
LOR ( 6 ) 中 抽取 字符 6， 因此，B$ 就 等 于 字符 6 的 ASCII 人 代码， 在 
270 行 ，FVAL 计算 字符 6 的 值 苑 将 其 值 适 给 C， 这 时 C =6,' 由 CO- 
LOR (C ) 所 改变 的 颜色 与 要 求 的 一 致 ， 在 435 行 到 445 行 ， 和 645 行 
到 675 行 都 重复 同样 的 方法 。 


6.2 关于 CAI( 计算 机 支持 指 今 ) 的 第 二 个 程序 


例子 一 一 用 COMX 一 35 计 算数 学 表达 式 的 值 


6.2.1 程序 表 


程序 表 


10 “REM THIS PROGRAM ISATUTORHML TO 

20 “REM SHOW HOW COMX MAY BE USED 

30 “REM AS A CALCULATOR TO EVALUATE 

40 “REM COMPLEX MATHEMATICAL EXPRESSIONS 


60 “CPOS (0,0): CLS 
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70 
80 
90 
100 
130 
140 
150 
160 
165 


167 
170 
180 
182 


184 
190 


200 
210 
220 
221 


224 
226 
230 
240 
242 


250 
260 
270 
280 
290 
300 
310 
315 


320 
330 


340 
345 


CPOS (4.5): PRINT “1 WISH TO SHOW YOU MY MATH” 
CPOS (5,6): PRINT ”″ ABILITY 

CPOS (7.5): PRINT “LET'S BEGIN WITH ADDITION.… 
CPOS (8,5): PRINT “THE OPERATOR IS +.… 

CPOS (10,5): PRINT “PLEASE TYPE” 

CPOS (12,5): PRINT “3+4” 

CPOS (14,5): PRINT “AFTER THE? SIGN.… 

CPOS (17.5): PRINT “THEN, PRESS THE CR KEY” 
CPOS (19,.5): PRINT “WATCH OUT FOR THE ANSWER 
IN” 

CPOS (20,6): PRINT ”THE NEXT LINE” 

INPUT AS$ 

PRINT FVAL (A$) 

INPUT “HIT THE RETURN KEY AND PRESS CR TO 
CONTINUE”K$ 

CPOS (0,0): CLS 

CPOS (8,4): PRINT “NOW，LET'S TRY SOMETHING 
MORE” 

CPOS (9,6): PRINT “COMPLICATED” 

CPOS (11,4): PRINT “TYPE AFTER THE? SIGN” 

CPOS (13,4): PRINT ” 12+14+61” 

CPOS (15,4): PRINT “THEN，PRESS CR FOR THE 
ANSWER” 

PRINT 

PRINT 

INPUT A$ 

PRINT FVAL (Ad 和 ) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE 
A$ 

CPOS (0,0): CLS 

CPOS (8,4): PRINT “THE OPERATOR 1S 一 ” 

CPOS (11,4): PRINT “PLEASE TYPE” 

CPOS (13,4): PRINT ”9-5 “ 

CPOS (15,4): PRINT “AFTER THE? SIGN.PRESS CR” 
PRINT A$ 

PRINT FVAL (Ag$) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE 


K$ 
CPOS (0,0): CLS: CPOS (7,8): PRINT “NOW, TRY THE 
FOLLOWING 


CPOS (9,8): PRINT "TYPE AFTER THE? SIGN” 

CPOS (12,8): PRINT ” 5+6 一 7 “ 

CPOS (15,8): _ PRINT “AND PRESS CR FOR THE 
ANSWER” 
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350 
360 
365 


370 


380 
390 
400 
410 
420 
430 
435 


440 


450 
460 
465 
470 
480 
490 
500 
520 


522 


530 
540 
550 
560 
570 
575 


580 


590 
600 
610 
620 
625 


630 


INPUT As$ 

PRINT FVAL (Ag) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE 
K$ 

CPOS (0,0): CLS: CPOS (5.5): PRINT “NOW，LET'S 
TRY MULTIPLICATION 

CPOS (7,5): PRINT “THE OPERATOR 1S”… 

CPOS (9.5): PRINT “PLEASE TYPE” 

CPOS (12,5): PRINT “9 米 7” 

CPOS (15,5): PRINT “AFTER THE? SIGN. PRESS CR” 
INPUT A$ 

PRINT FVAL (Ag$) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE” 
K$ 

CPOS (0,0): CLS: CPOS (5,5): PRINT “NOW LET'S TRY 
DIVISION 

CPOS (7,5): PRINT “THE OPERATOR IS /” 

CPOS (9,5): PRINT “PLEASE TYPE” 

CPOS (12,5): PRINT ”63/7 “ 

CPOS (15,5): PRINT: AFTER THE? SIGN. PRESS CR 
CPOS (17,5): PRINT “(63/7 MEANS 63 DIVIDED BY 7)” 
INPUT A$ 

PRINT FVAL (A$) 

CPOS (20,0): INPUT “HIT ANY KEY AND PRESS CR TO 
CONTINUE”K$ 

CPOS (0,0): CLS: CPOS(2.5): PRINT “NOW, LET'S TRY 
A MORE COMPLEX” 

CPOS (4,5): PRINT “EXPRESSION. PLEASE TYPE” 
CPOS (7,5): PRINT “ (5+6) 洲 (9 一 7) “ 

CPOS (10,5): PRINT “AFTER THE? SIGN. PRESS CR” 
INPUT A$ 

PRINT FVAL (A$) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE” 
K$ 

CPOS (0,0): CLS: CPOS(8.4): PRINT “NOW，TRY 
ANOTHER. PLEASE TYPE” 

CPOS (11,4): PRINT ” (7+4) 米 (19 一 14)/(8-3) “ 

CPOS (13,4): PRINT “AFTER THE? SIGN.PRESS CR” 
INPUT A$ 

PRINT FVAL (A$) 

INPUT “HIT ANY KEY AND PRESS CR TO CONTINUE”“ 
K$ 

CPOS (0,0): CLS: CPOS (5,5): PRINT “PLEASE FEEL 
FREE TO TRY ANY OF 
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640 CPOS (7.,5): PRINT “YOUR OWN EXPRESSION “ 

650 CPOS (10,5): PRINT "JUST TYPE IT AFTER THE? SIGN” 

660 CPOS (12,5): PRINT “AND PRESS THE CR KEY” 

670 INPUT A$ 

680 PRINT FVAL (Ad$) 

690 INPUT “ANOTHER EXPRESSION, ANSWER Y/N"“Q$ 

692 IF Q$=“Y"” THEN GOTO 630 

694 IF Q$=“N" THEN GOTO 720 

720 CPOS (0,0): CLS: CPOS (5.5): PRINT “AFTER YOU 
FINISH THIS TUTORIAL” 

730 COPS (7.5): PRINT “YOU CAN USE COMX TO COMPUTE”- 

740 CPOS (9,.5): PRINT “ANY EXPRESSION OF YOUR OWN…” 

750 CPOS (12,5): PRINT “JUST TYPE PR OR PRINT. 
FOLLOWED” 

760 CPOS (14,5): PRINT “BY THE EXPRESSION. THEN 
PRESS” 

770 CPOS (16.5): PRINT “THE CR KEY. FOR EXAMPLE,…” 

780 CPOS (19,5): PRINT “PR6 洲 5/9” 

785 CPOS (23,1): INPUT “HIT ANY KEY AND PRESS CR 
TO CONTINUE”K$ 

790 CPOS (0,0): CLS: CPOS (5.5): PRINT “COMX CAN IN 
FACT HANDLE” 

800 CPOS (7.5): PRINT “TRIGONOMETRIC, LOG, EXPONEN- 
TIAL” 

810 CPOS (9,5): PRINT “AND MANY OTHER FUNCTIONS.…” 

820 CPOS (12,5): PRINT “PLEASE CONSULT THE MANUAL” 

830 CPOS (15,7): PRINT “USING THE COMX 35” 

840 CPOS (20,7): PRINT “GOOD BYE! HAVE FUN” 

850 END 
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6.2.2 程序 设计 要 点 


在 140 行 中 ， 要 求 用 户 输入 算术 表达 式 3 + 4。 因此， 字符 串 A$ 
是 3 十 4， 在 180 行 中 的 语句 PRINT FVAL (Ag$ ) 求 出 算术 表达 式 3 
十 4 的 值 。 


用 这 种 方法 可 以 求 出 更 复杂 的 算术 表达 式 的 值 ， 在 这 整个 程序 中 ， 
使 用 同样 方法 的 还 有 230 行 ，240 行 和 300 行 ，310 行 等 等 。 


690 行 是 一 个 INPUT 话 句 ， 使 用 户 可 在 答案 Y ( 对 应 YES ) 或 N 
( 对 应 NO ) 中 作 选 择 ， 在 692 行 和 694 行 中 取 不 同 的 动作 。 
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附 录 
A.1 COMX 一 35 错 误 信 息 


00 ”由 用 户 引 起 的 程序 中 断 

01 在 ASC 或 LEN 丁 数 中 有 话 法 错 ; 

02 ”数组 超出 范围 或 无 定义 

03 维 数 错误 

04 DEFINT 有 违反 规定 的 结尾 

05 在 自 变 量 中 缺少 括号 

06 自 变量 超出 范围 

07 光 到 混合 型 式 的 计算 

08 以 0 为 除数 的 错误 ， 或 负数 的 对 数 

09 光 到 不 可 执行 的 画 数 

10 EXIT 指 今 必须 与 FOR/VNEXT 或 GOSUB/RETURN 一 起 使 用 
11 FORVZNEXT 堆 栈 次 出 ， 或 FORVZNEXT 直接 执行 
12 FOR 中 有 话 法 错误 

13 GOSUB 堆 栈 浴 出 

14 在 十 六 进 制 数 中 有 不 可 接受 的 字符 

15 洗 点 数 太 大 以 致 转换 成 整数 或 整数 乘 浴 出 
16 在 条 件 语 句 中 有 不 可 接受 的 算 符 

17 _ INPUT 或 FVAL 不 能 直接 执行 

18 在 READ 中 必须 有 变量 名 或 字符 串 名 
19 在 READ 或 INPUT 中 有 语法 错误 

20 在 LEN 画 数 中 有 话 法 错误 

21 在 赋值 语句 中 有 话 法 错误 

22 缺少 引号 

23 在 LIST 中 有 语法 错误 

24 在 库 中 找 不 到 这 样 的 字 

25 在 MID$ 酚 数 中 有 话 法 错误 

26 在 NEXT 话 句 中 发 现 有 不 可 接受 的 变量 名 
27 应 该 不 是 数 就 是 字 

28 缺少 运算 括号 

29 在 POKE 族 名 中 自 变 量 的 个 数 错 误 

30 在 PRINT 语 句 中 最 后 的 字符 不 可 接受 
31 在 DATA 话 句 中 有 话 法 错误 

32 数据 不 狗 

33 在 INPUT 话 句 中 找 不 到 这 样 的 字符 串 
34 在 赋值 语句 中 缺少 等 号 
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35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
54 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
人 
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在 字符 串 数 组 中 缺乏 括号 

在 USR 或 CALL 中 自 变 量 太 多 
在 CHR$ 画 数 中 有 话 法 错误 

在 二 进 制 数 中 有 不 可 接受 的 字符 
行 缓冲 器 次 出 

输入 时 文件 未 打开 
输出 时 文件 未 打开 

行 的 结尾 不 可 接 令 或 语句 不 能 执行 
堆栈 浴 出 

数 的 位 数 太 多 

在 数 中 有 不 可 接 令 的 字符 

找 不 到 这 样 的 行 号 

在 IF 语句 中 有 不 可 接 令 的 运算 
存 崇 器 浴 出 

在 MOD 语句 中 自 变量 的 个 数 错误 
程序 太 长 存 崇 器 不 够 存 崇 
自 变 量 超 限 

自 变 量 的 个 数 错 误 

自 变 量 的 个 数 错误 
字符 串 变 量 未 定义 

磁带 读 错 

磁带 写 错 

交 件 不 是 BASIC 程序 

去 件 不 是 BASIC 数据 

被 保留 的 

被 保留 的 

被 保留 的 

未 迭 ROM 或 ROM 卡片 

没有 足 葛 的 存 赃 单 元 供 重 新 编号 

重 编号 设置 的 外 号 有 错 

没有 定义 这 样 的 下 标 变量 

字符 串 超出 127 个 字符 

在 COLOR 中 自 变 量 的 个 数 必须 是 1 
在 SCREEN 中 自 变 量 的 个 数 必 须 是 1 
在 CTONE 中 的 自 变 量 的 个 数 必须 是 1 
在 VOLUME 中 自 变 量 的 个 数 必 须 是 1 
在 NOISE 中 自 变量 的 个 数 必须 是 2 
在 TONE 中 自 变量 的 个 数 必须 是 3 
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A.2 键 符 的 ASCII 代 码 和 内 寻 字 符 


GRAPHIC STANDARD 
Output Output 


Decimal Hex 上 Key pressed Shape ， Color |Decimal Hex Key pressed ”Shape _Color 


0 0 32 20 Space Bar 
1 1 CNTL--A C 33 21 ! 1 C 
2 2 CNTL--B C 34 22 呈 C 
3 3 35 23 ## ## C 
4 4 CNTL-D C 36 24 $ $ C 
5 5 CNTL--E C 37 25 % % C 
6 6 CNTL--F C 38 26 & & C 
7 7 CNTL-G C 39 27 C 
8 8 CNTL-H C 40 28 { C 
9 9 41 29 ) ) C 
10 A LINE FEED 42 2A 和 C 
11 B 43 2B + + C 
12 C CNTL-L C 44 2C 。 。 C 
13 D “CARRIAGE 45 2D 一 一 C 
RETURN 
14 E CNTL-N C 46 2E . C 
15 F CNTL-O C 47 2F / / C 
16 10 ”CNTL-P C 48 30 四 0 C 
17 11 “CNTL-Q C 49 31 1 1 C 
18 12 50 32 2 2 C 
19 13 51 33 3 3 C 
20 14 ”CNTL-T C 52 34 4 4 C 
21 1T5- CNTL-U CC 53 35 5 5 C 
22 16 ”CNTL-V C 54 36 6 6 C 
23 17 ”CNTL-W C 55 37 7 7 C 
24 18 CNTL-X C 56 38 8 8 C 
25 19 “CNTL-Y C 57 39 9 9 人 
26 1A CNTL--Z C 58 3A : : C 
27 1B 59 3B ; 5 C 
28 1C 60 3C < < C 
29 1D 61 3D = = C 
30 1E 62 3E 沪 六 C 
31 1F 63 3F ? ? C 


Note: CNTL--A standc for CONTROL A. 


113 


Output Output 
Decimal Hex Key pressed ”Shape Color | Decimal Hex Key pressed ”Shape _Color 


64 40 力 加 C 96 60 几 G 
65 41 A A C 97 61 SHIFT-A 1 G 
66 42 B B C 98 62 ”SHIFT-B 2 G 
67 43 C C C 99 63 “SHIFT-C 3 G 
68 44 D D C 100 64 ”SHIFT-D 4 G 
69 45 E E C 101 65 “SHIFT-E 5 G 
70 46 F F C 102 66 SHIFT-F 6 G 
71 47 G G CE 103 67 ”SHIFT-G 7 G 
72 48 H H C 104 68 “SHIFT-H 8 G 
73 49 1 1 C 105 69 “SHIFT-!1 9 G 
74 4A J J C 106 6A SHIFT-J」 4 G 
75 4B K K C 107 6B SHIFT--K G 
76 4C L 上 C 108 6C SHIFT--L B 
77 4D M M C 109 6D SHIFT-M Blk 
78 4E N N C 110 6E SHIFT-N | C 
79 4F O O C 111 6F SHIFT-0 他 C 
80 50 P P C 112 70 SHIFT--P 。 PE 
81 51 Q Q C 113 71 SHIFT-Q 团 C 
82 52 R R C 114 72 ”SHIFT--R 它 
83 53 S S C 115 73 ”SHIFT-S C 
84 54 让 T C 116 74 “SHIFT-T C 
85 55 U U C 117 75 ”SHIFT-U G 
86 56 V V C 118 76 SHIFT-V C 
87 57 W W 人 119 77 “SHIFT-W C 
88 58 X X C 120 78 SHIFT 一 X G 
89 59 Y Y C 121 79 SHIFT-Y C 
90 5A Z Z C 122 7A SHIFT--Z G 
91 5B 口 口 CC 123 7B B 
92 5C C 124 7C 

93 5D 日 | C 125 7D G 
94 5E 全 | C 126 7E G 
95 5F 国 C 127 7F B 
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SPECIAL CHARACTERS (HEX 80 -HEX 8F) 


Decimal ”Hex. Used as output Read from keyboard 

128 80 Cursor Up (Vertical tab) 

129 81 Cursor right 

130 82 Cursor down (Line feed) 

131 83 Cursor left 

132 84 Carriage return 

133 85 Clear to end of screen 

134 86 Delete Key 

135 87 Control-S 

136 88 Joystick up 

137 89 Joystick right 

138 8A Joystick down 

139 8B Joystick left 

140 8C Control 一 R 

141 8D Control 一 C 

142 8E 

143 8F 

GRAPHIC STANDARD 
Output Output 
Decimal ”Hex Key pressed Shape Color Decimal Hex Key pressed Shape _Color 
144 90 W 168 A8 W 
145 91 W 169 A9 W 
146 92 170 AA 汪 W 
147 93 171 AB 十 W 
148 94 W 172 AC W 
149 95 W $73 AD 一 W 
150 96 W 174 AE W 
151 97 W 175 AF W 
152 98 W 176 8 人 四 W 
153 99 W 4 了 B1 1 W 
154 9A W 178 B2 2 W 
155 9B 179 B3 3 W 
156 9C 180 B4 4 W 
157 9D 181 B5 5 W 
158 9E 182 B6 6 W 
159 9F 183 B7 理 W 
184 B8 8 W 

1 4 | W 185 89 9 W 
162 。” A2 W 186 BA W 
163 。 A3 ## WwW 187 8B 1 W 
164 ma $ WwW 188 BC < WwW 
165 。 A5 % WwW 2 - 上 
166 A6 & WwW 190 BE > W 
167 。 A7 ， WwW 191 BF ? W 
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Decimal Hex Key pressed ”Shape _ Color Decimal .Hex Key pressed Shape 


192 Ch 
193 C1 
194 C2 
195 6C3 
196 C4 
197 C5 
198 C6 
199 C7 
200 C8 
201 C9 
202 CA 
203 CB 
204 CC 
205 CD 
206 CE 
207 CF 
208 D0 
209 D1 
210 D2 
211 D3 
212 D4 
213 D5 
214 D6 
215 D7 
216 D8 
217 D9 
218 DA 
219 DB 
220 DC 
221 DD 
222 DE 
223 DF 
特殊 键 词 指 分 
Control 一 C 
Control 一 | 
Control 一 J 
Control 一 K 
Control -- M 
Control 一 R 
Control 一 S 


224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


N<xs<c- onmpoozzrx--zonmooom> 硬 


三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 三 


输入 行 作废 

光标 向 上 

光标 向 左 

光标 向 右 

光标 向 下 

重复 最 后 行 (到 “RETURN"” 键 ) 
停止 编辑 


116 


E0 
E1 
E2 
E3 
E4 
E5 
E6 
E7 
E8 


几 
1 
2 
3 
4 
5 
6 
7 
8 
9 


听 色 略 话 

Blk 黑色 
B 蓝 色 
G 绿色 
C 青色 
R 红色 
Y 黄色 
M 洋红 
W 白色 


Output 
Color 


忌 三 < 忆 忆 < 三 飞 三 三 三 三 三 三 三 三 三 三 己 < < <<<<<<<<< 


A:'3 倍 带 录音 的 要 领 


oo ~ 呈 nn 已 玫 


使 用 高 质量 的 磁带 

使 用 尽 可 能 短 的 磁带 

使 用 有 特别 保护 的 电源 电缆 

保持 磁头 和 压 带 轮 的 清洁 

由 于 磁带 的 互 换 性 应 保持 磁头 的 排列 

不 要 录 在 太 接近 带头 的 地 方 

检查 盒 带 在 录 理 机 上 是 否 完全 放 好 

如 果 试 过 一 盒 磁 带 不 好 用 ， 可 试 另 一 盒 ， 可 能 是 磁带 上 有 地 方 
坏 或 带 盒 弯 曲 。 

对 装 入 程序 要 选择 适当 的 昔 量 


， 人 航 脏 的 录 香 机 会 使 磁带 出 问题 


仔细 检查 录 香 连接 插头 的 接触 是 否 展 好 


磁带 从 录 理 机 退出 之 前 要 重 绕 

， 磁 带 应 保存 在 原来 的 防 尘 盒 中 

， 磁带 应 避 开 高 温 或 磁场 

. 录 理 之 前 ， 应 将 磁带 绕 到 一 端 

.有些 卡 式 录 昔 机 常会 产生 问题 ( 可 能 不 适 于 某 些 盒 式 夸 带 或 其 


他 问题 ) 如 果 某 台 机 老 是 出 问题 ， 应 设法 换 一 人 台 


， 仔 细 检查 MIC 插头 在 录 理 之 前 是 否 连 接 好 

， 某 些 磁 带 录 理 机 可 能 要 用 下 AR 插头 来 放 昔 ， 请 查看 录 理 机 手册 
， 最 好 一 直 使 用 适合 录 秋 机 的 交流 适配器 

， 如 果 有 香 调 控制 的 话 ， 请 调 到 最 高 位 置 

， 可 能 的 话 应 定期 对 磁头 和 压 带 轮 消 磁 ， 人 磁头 磁 化 了 会 慢 慢 措 去 


倍 带 上 的 内 容 。 


， 拔 出 耳机 软 线 听 了 程序 的 声 理 ， 如 果 信 息 头 的 理 调 失常 ， 说 明 


盒 带 或 磁头 有 问题 


， 为 了 得 到 最 好 效果 ， 应 定期 对 你 的 磁带 录 香 机 消 磁 
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ABS 
ASC 
ATN 
CALE 
CHRS$ 
CLD 
CLS 
CNTL 
COLOR 
COS 
CPOS 
CITONE 
DATA 
DEFINT 
DEFUS 
DEG 
DIM 
DLOAD 
DSAVE 
卫 DIT 
END 
EOD 
PEOP 

卫 X 工 了 
卫 XP 


A.4 COMX 一 35 的 语句 和 画 数 的 索引 


69 

74 

69 

99 
53,73,74 
85 

85 

58 

15 

69 

85 

17 

95 

92 

92 

93 

94 

23 

23 
50,86 
80 

86 

86 

80 

70 

95 

70 

81 

87 

75 
47,81 
27,82 
78 
31,97 
70 

70 

59 

76 

66 
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LIST 
LOG 
MEM 
MIDS 
MOD 
MUSIC 
NEW 
NEXT 
NOISE 
PEEK 
PI 
PLOAD 
POKE 
PR 
PRINT 
PSAVE 
RAD 
READ 
REM 
RENUMBPER 
RESTORE 
RETURN 
Rnd 
RUN 
RUN+ 
SCREEN 
SGN 
SHAPE 
SIN 
SQR 
TAB 

了 TIME 
TIMOUT 
TONE 
TRACE 
USR 
VOLUME 
WAIT 


88 
71 
100 
76 
71 
18 
88 
84 
19 
100 
区 工 
23 
67 
98 
98 
24 
95 
96 
95 
89 
96 
47,84 
7 法 
90 
91 
16 
了 2 
54 
冰 2 
72 
100 
57 
57 
20 
91 
101 
21 
84 


A.5 有 关 硬 件 的 注释 
A:'5'1 起 动 自 诊 断 序列 


在 初次 起 动 或 系统 重 丧 ( 同时 按 空 棒 和 RT 键 ) 以 后 ，COMX 一 
35 计 算 机 会 产生 几 声 "BEEP" 的 声 理 区 在 电视 屏幕 上 显示 测试 图 样 ， 这 
是 自 测 斌 序列， 它 包 含 COMX -- 35 计算 机 的 很 多 信息 ， 服 务 人 员 能 据 
此 判断 需要 服务 的 问题 的 根源 。 


这 个 测试 图 样 也 可 用 来 调整 电视 接收 机 ， 它 大 约 每 隔 7 秒 种 改变 颜 
色 一 次 ， 这 样 就 可 调整 电视 机 上 的 调谐 亮度 ， 对 上 比 度 ， 色 和 彩 〈 单 色 和 混 
合 色 ) 控制 以 得 到 最 满 亚 的 彩色 图 象 ， 在 得 到 满意 的 电视 图 象 之 后 ， 可 
按 除 空 棒 外 的 任 巧 键 ，COMX 一 35 就 显示 它 的 软件 版 本 的 号 码 赣 准备 
接受 你 的 指 今 。 


A:5.2 PAL 和 NTSC 制式 


COMX -- 35 计算 机 特 为 PAL 和 NTSC 电视 系统 设 座 两 种 制式 ， 
这 两 种 制式 之 间 有 一 些 不 同 的 地 方 ， 请 用 户 注 悉 下 面 几 点 : 


1. 在 PAL 制式 中 每 个 字符 由 9 条 水 平 线 构成 ， 而 在 NTSC 中 是 8 
条 水 平 线 ， 由 于 在 COMX -35 的 NTSC 制 式 中 最 后 一 条 ( 第 9 条 ) 水 
平 线 没 有 显示 出 来 ， 故 使 一 些 图 形 字符 串 上 去 就 不 同 。 


在 NTSC 系统 中 ， 这 也 会 影响 到 SHAPE 指 今 ， 因 为 定义 符号 或 字 
符 的 形状 不 必用 第 17 和 第 18 个 数字 。 


2. 内 邵 计 时 器 在 PAL 人 制式 中 是 按 每 秒 50 次 的 比率 ' 而 在 NTSC 制 式 


中 是 每 秒 60 次 ， 故 此 ， 如 果 需 要 精确 的 时 间 ， 在 TIME ( X ) 指 今 中 就 
应 使 用 不 同 的 值 。 
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A.5.3 PAL 和 NTSC 制式 的 不 同 


用 户 只 需 在 开机 式 系统 重量 之 后 为 一 下 测试 图 样 就 能 说 出 COMX 一 
35 是 PAL 制 式 还 是 NTS C 制式 的 计算 机 ， 两 条 水 平 线 在 PAL 或 NTSC 
制式 中 会 显示 出 不 同 的 颜色 序列 。 


ee ~、 咎 和 企 , 村 指 明 是: PAL 或 


PAL 制式 NTSC 制式 


COMX 杆 C O MX 杆 
图 1 CYMR G CYMR Y 
图 2 YCMB G YCMB C 


》 


图 3 MCYG 8B MCYG C 


C= 青色 Y= 黄 色 M= 洋 红 
R= 红 色 G= 绿 色 B= 蓝 色 


如 果 一 个 程序 要 都 能 在 PAL 和 NTS C 机 上 运行 且 得 出 同样 结果 ， 
该 程序 就 必须 首先 查 悉 存放 在 地 址 41CA (十 六 进 ) 中 的 系统 参数 来 校对 
机 器 的 制式 ， 如 果 其 参数 是 9， 那 是 PAL 机 ， 如 果 是 8， 那 是 NTSC 
机 。 


用 户 可 用 PEEK 指 仿 取 出 这 个 参数 ， 蓝 可 如 下 例 和 采取 适 当 的 动作 。 
10 V=PEEK (41CA) 注 : 找 出 制式 蓝 放 进 变 量 V 

20 IFV=8THENTIME (120) 注 :在 NTSC 系统 中 延迟 2 秒 。 
30 IFV=9THENTIME(100) 注 :在 PAL 系统 中 延迟 2 秒 。 

40 IFV=8THEN SHAPE (20'FF000000000000FF") 


50 IFV=9THENSHAPE (20"FF00000000000000FF7) 


120 


这 个 程序 例子 首先 找 出 制式 区 将 其 放 进 变量 V， 在 20 行 和 30 行 中 ， 
对 PAL 和 NTSC 机 要 用 不 同 的 时 间 延 迟 值 才 能 保证 在 这 两 种 情况 下 都 
有 精确 的 2 秒 延 迟 时 间 ， 在 40 行 和 50 行 中 ， 程 序 将 产生 带 有 项 ， 下 两 根 
线 的 图 符 ， 在 电视 屏幕 上 看 起 来 是 相同 的 ， 但 实际 上 它们 分 别 由 8 条 或 
9 条 水 平 线 构成 。 


ov 和 ODN 一 


PAL 制式 NTSC 制式 
A:5.4 COMX 一 35 计算机 的 调整 
每 台 COMX 一 35 计算 机 都 已 由 制造 三 调整 到 有 最 好 的 结果 ， 如 果 
原来 的 调整 已 破 搅 乱 ， 可 用 小 螺丝 批 ( 修理 钟表 用 的 ) 通过 计算 机 底 边 
的 三 个 小 孔 做 再 调整 。 


这 三 个 小 孔 分 别 标 有 MIX ，SYNC 和 VIDO， 其 功能 和 调整 步 又 如 


这 是 用 于 调整 和 彩色 分 载 信号 的 频率 使 得 之 度 信 号 与 色 度 信号 之 间 的 
干扰 最 小 。 


如 果 这 个 控制 被 调 乱 ， 那 么 在 所 显示 的 字符 的 边缘 会 出 现 一 些 移动 
的 或 固定 的 彩色 小 点 。 


所 依附 的 


彩色 小 点 


正常 显示 “MIX " 失调 
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调整 "MIX "控制 的 步 又 


(a) 打 进 下 面 的 程序 并 使 显示 很 多 竖 线 。 


(b) 用 小 螺丝 批 小 心 插 进 标 有 "MIX” 的 小 孔 。 


(cec) 观察 数字 ”1 "的 边缘 和 彩色 竖 线 之 间 的 地 方 ， 缓 盆地 仔细 转动 


螺丝 批 。 


(d) 调整 到 依附 在 上 面 的 彩色 点 不 出 现 为 止 。 


注 总 : 有 些 机 器 的 电视 显示 会 突然 变 成 黑白 ， 这 时 只 要 反方 向 转动 螺丝 
批 ， 彩 色 会 重新 出 现 。 


SHAPE (二 0,“FFFFFFFFFFFFFFFFFF"…) 
PRINT “111111111111111111111111111111111 
1111111111111111111…; 

FOR L1=1 TO 22 

PRINT CHR$ (107,108,64,237,235,236,192); 
FOR Il=1TO 8 

READ A 

FOR D=1 TO 4:PRINT CHRS$(A); : NEXT 
NEXT 

PRINT 5 

RESTORE 

NEXT 

REM 

GOTO 120 

DATA 32,107,108,64,237,235,236,192:END 
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(II)SYNC 


这 是 用 于 调整 同步 脉冲 的 振幅 ， 一 般 不 必 调 整 这 个 控制 ， 除 非 它 被 
用 户 调 乱 了 ， 要 再 调整 须 用 有 经 验 的 服务 人 员 来 做 。 


(III)VIDEO 


这 是 用 于 调整 适 给 RE 调制 器 的 见 象 讯号 的 振幅 ， 低 振幅 给 出 的 显 
示 模 糊 不 清 ， 而 高 振幅 会 使 黄色 的 字符 在 电视 屏 上 好 象 是 白色 的 。 


一 般 不 必 调整 这 个 控制 ， 除 非 它 披 用 户 调 乱 了 ， 要 再 调整 须 由 有 经 
验 的 服务 人 员 来 做 。 
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A:.6 存 崇 器 图 示 


显示 屏 “RAM 


字符 RAM 


保留 


BASIC 程序 
汇编 程序 
系统 RAM 
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COMX 一 35 的 存 崇 器 图 示 


0000 -- 3FFF 内 导 系 统 ROM 
(十 六 进 ) 包含 (1)BASIC 解释 程序 
(2) 电 视 和 键盘 操作 系统 
(3) 磁 带 操作 系统 
4000 -- 43FF 系统 参数 存 凡 区 。 
4400 -- BDFF BASIC 程 序 和 数据 存 崇 区 。 
系统 堆栈 的 项 部 在 BDFF 。 
BE00 -- BFFF 保留 给 磁盘 操作 系统 。 
C000 -- DFFF 8K 字 节 的 8 个 存 崇 库 
一 用 于 系统 的 扩展 。 
一 在 对 某 个 区 进 引 读 或 写 操 作 之 前 程序 必须 先 选择 
所 要 的 存 崇 库 。 
E000 -- EFFF 保留 


一 用 于 存 崇 库 之 间 的 通信 。 
一 不 能 适应 于 一 个 8K 字 节 存 崇 器 的 应 用 。 


F000 -- F3FF 保留 

F400 一 F7FF 字符 定义 的 RAM 区 。 
一 这 个 区 保持 128 个 字符 的 点 模式 。 
一 字符 可 由 BASIC 的 SHAPE 指 今 改 变 。 
一 在 PAL 系 统 中 每 个 字符 由 9 个 字 节 。 


一 在 NTSC 系 统 中 每 个 字符 用 8 个 字 节 。 
一 这 个 区 只 能 由 转 到 CDP 1869 IC 的 "字符 存 贮存 
取 " 的 状态 来 访问 。 


F800 -- FFFF 显示 屏 页 面 在 崇 器 
一 每 一 字 节 保持 屏 上 一 个 显示 字符 位 的 字符 代码 。 
一 在 写 入 之 前 ，F 800 代 表 屏 上 左上 角 的 字符 
位 。 
F 801 是 其 下 ( 在 它 右边 ) 一 个 位 置 等 等 。 
EBBF 代 表 屏 上 右 下 角 位 冒 。 
一 硬件 写 入 是 通过 改变 在 CDP 1869 IC 里 面 的 家 庭 
地 址 寄存 器 完成 。 
一 这 个 区 是 只 与 存 赃 区 ， 而 且 只 能 在 没有 显示 的 时 
间 访 问 ， 程 序 可 以 等 到 没有 显示 的 时 候 才 直接 写 
入 这 个 区 。 
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